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Vorwort 


Was ist ein Mikroprozessor? Wie arbeitet ein Mikrocomputer? Auf diese Fragen 
findet man heute viele Antworten. Arbeitsplatzvernichter, „Jobkiller“... sagen die 
einen. Andere meinen, daß ohne diese modernen Bauelemente und Geräte der 
Elektronik die Aufgaben der Zukunft nicht bewältigt werden können. Die obigen 
Antworten spiegeln Meinungen, Gefühle; auch Ängste wieder - und diese kom- 
men vom „nicht-genau-Wissen“. 

Sie haben sich für „wissen-wollen“ entschieden - und Sie tun gut daran. BASIC 
wollen Sie lernen, eine der zahlreichen Programmiersprachen, die Sie in die Lage 
versetzt, aus dem stummen Kasten mit dem Namen „Mikrocomputer“ erst ein 
nützliches Hilfsmittel zur Lösung Ihrer Probleme zu machen. 

Im Verlaufe dieses Buches gehe ich davon aus, daß Sie bei der Lektüre Ihren 
Computer vor sich haben, um alle beschriebenen Programmschritte gleich auszu- 
probieren. Sicherlich ist das die effektivste Methode, in die neue Materie einzu- 
dringen. 

Aber auch wenn Sie (noch) nicht einen „Personal-Computer“ Ihr eigen nennen: 
ich habe mich bemüht, Text und Beispiele so abzufassen, daß Sie auch ohne 
Übungen lernen, was BASIC ist und wie man damit umgeht. Vielleicht ist dann 
das Buch eine Entscheidungshilfe und Sie erfüllen sich endlich einen langgeheg- 
ten Wunsch... 


Oder — auch das will ich nicht ausschließen - Sie erkennen, daß das Program- 
mieren doch schwieriger ist, als Sie vermutet hatten. Dann habe ich Sie wenig- 
stens vor einer teuren Fehlinvestition bewahrt. 

Wie auch immer — ich habe nicht den Ehrgeiz, Ihnen hier BASIC in allen 
möglichen Variationen und mit den letzten Raffinessen vorzuführen. Ohne 
Schnörkel und Verzierungen, unter Verzicht auf das imponierende — oder ängsti- 
gende — Fachchinesisch werden Sie lernen, BASIC zu handhaben. 

Es wird Ihnen gefallen, mit relativ wenigen Befehlen virtuos zu arbeiten; besser, 
als einen nur blassen Schimmer des Gesamten zu bekommen. Sie werden sich 
noch wundern, was Sie Ihrem Computer alles entlocken können. 

Sie brauchen nicht zu wissen, wie der Computer „das macht“. Aber schaden 
tut’s auch nicht. Ich konnte mir deshalb nicht verkneifen, Ihnen in den ersten 
Kapiteln etwas über das Innenleben des Computers zu erzählen. Wenn Sie das 


Vorwort 


schon wissen, — oder wenn es Sie nicht interessiert — dann beginnen Sie die 
Lektüre einfach erst auf Seite 20. 


Und nun genug der Vorrede - fangen wir an! 
Sie werden Ihren Spaß haben! 


Gifhorn, 1985 Rudolf Busch 
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1 Mikroprozessor? — Mikrocomputer? 


Diese bereits in der Einleitung benutzten Begriffe sollen zunächst in ihrer Bedeu- 
tung erklärt werden; und zwar in der Reihenfolge 
MIKRO-COMPUTER-PROZESSOR 

Nun, wie Sie wissen, gibt es (Groß-)Computer, um die man ganze Hallen baut. 
Daneben Anlagen, wie sie beispielsweise ein mittlerer Handwerksbetrieb einsetzt. 
Diese würde man Klein- oder Minicomputer nennen. Und ein 

„MIKRO-“ 

ist ein Kleinstcomputer, wie Sie ihn - vielleicht — vor sich haben. Daß der „Mi- 
kro-“ der bislang letzte Schritt in der Entwicklung ist, hängt mit der verwendeten 
Technologie zusammen, auf die wir hier nicht eingehen wollen. 

„Mini“ oder „Mikro“ beschreiben also die räumliche Größe der Anlagen und ihre 
Leistungsfähigkeit. Die Art und Weise, wie sie funktionieren, ist dabei im Prinzip 
bei allen gleich. 

„To compute“ ist ein Begriff aus dem Englischen; zu Deutsch heißt das „berech- 
nen“. Damit ist ein 
COMPUTER 
ein Ding, mit dessen Hilfe man etwas berechnen kann. Bitte achten Sie genau auf 
die gewählte Formulierung: Es ist bewußt NICHT gesagt, daß ein Computer 
rechnen kann!! 

Wie dem auch sei: irgend etwas wird dabei in dem Computer ablaufen; irgend 
etwas wird dabei passieren. 

Die „Aufsicht“ darüber hat eine Steuereinheit, die gewissermaßen als „Befehls- 
zentrale“ alle internen Vorgänge in dem Computer steuert. Und diese zentrale 
Steuereinheit heißt bei Mikro-Computern 
MIKROPROZESSOR. 

Andere Begriffe dafür sind: Zentraleinheit 

CPU = Central Processing Unit 
Klären wir in diesem Zusammenhang gleich noch zwei weitere Begriffe, die uns 
im folgenden noch begegnen werden: Gerade bei größeren Computern spricht 
man auch von Datenverarbeitungsanlagen (DVA) — Anlagen also, die 
DATEN VERARBEITEN. 
Daten sind dabei Zahlen wie 3, 1/3, 17,5 usw.; aber auch Worte wie MEIER, 
MUENCHEN; ferner Kombinationen daraus, wie PORSCHESTR 17 oder 17,35 
DM. 


1 Mikroprozessor? — Mikrocomputer? 


Und DATEN VERARBEITEN kann bedeuten: 


® mit Zahlen rechnen 


® Daten sortieren (wie eine Liste von Namen in alphabetischer 
Reihenfolge aufstellen) 

® Daten vergleichen (wie etwa prüfen, ob ein „Datum“ mit einem 
anderen identisch ist) 

® Daten codieren (etwa eine Folge von (Schrift)-Zeichen in Zah- 


len übertragen) usw. 
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2 Bausteine eines Computers 


Alle Tätigkeiten wie Rechnen - Sortieren — Vergleichen usw. können auch von 
Ihnen, vom MENSCHEN, ausgeführt werden. Zur weiteren Vertiefung der Begriffe 
soll deshalb mit aller Vorsicht und Zurückhaltung einmal anhand der Abb. 1 ein 
Vergleich Mensch — Computer gewagt werden. 


Sie lesen oder hören mit Ihren Sinnesorganen. Dem Computer werden die 
Daten über Eingabegeräte mitgeteilt. Ein Eingabegerät kann eine (Rechen- oder 
Schreibmaschinen-)Tastatur sein — oder ein Leser für Lochstreifen oder -karten. 


Mensch Rechner 


Arbeits- 
anweisung 


Eingabe - 


Geräte 


Abb. 1 Vergleich Mensch- 
Computer. Der Mensch liest 
oder hört. Dem Computer 
werden die Daten einge- 
geben (Aus: M. F. Wolters, 
Der Schlüssel zum Compu- 
ter, Econ-Verlag, Düssel- 
dorf) 


Zentraleinheit 


Arbeitspeicher 


Ausgabe- 


Geräte 
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2 Bausteine eines Computers 


Mensch Computer 

Die Daten werden vom Menschen in | Die Daten gelangen in die Zentralein- 
sein Gehirn aufgenommen und dort | heit des Computers und werden dort 
„verarbeitet“ „verarbeitet“. 


Die Rolle des Gehirns beim Menschen spielt also die Zentraleinheit beim Com- 
puter. 


Als Ergebnis der Verarbeitung werden 
vom Computer Daten ausgegeben. 


Das Ergebnis Ihrer Verarbeitung geben 
Sie Ihrer Umwelt bekannt — Sie reden 
darüber oder schreiben es auf. 


So wie Sie über Schreibgeräte verfügen, hat der Computer Ausgabegeräte. Das 
kann ein Bildschirm-Sichtgerät sein, ein Drucker oder ein (Lochstreifen- oder 
Karten-)Stanzer. 


Gehen wir etwas ins Detail: 

Wenn Sie rechnen, Daten (Zahlen) ver- | Der Computer verarbeitet Daten nach 
arbeiten, dann tun Sie das nach Anwei- | einem Programm, das Sie (oder der Pro- 
sungen, nach (Rechen-)Regeln, die Sie | grammierer) ihm eingeben müssen. 
irgendwann gelernt haben oder die 

man Ihnen für die jeweilige Aufgabe 

mitteilt. 

Ebensowenig wie Sie Zahlen sinnvoll miteinander verknüpfen können, wenn Sie 
die Regeln nicht kennen, ist der Computer in der Lage, mit Daten allein etwas 
anzufangen. 

Der Computer verarbeitet die Daten nach einem Programm, das ihm vorschreibt, 
was er wie mit den Daten anfangen soll. Und hier beginnt unser Beispiel zu 
hinken. Während Sie zu den Daten, zu den gelernten oder mitgeteilten Regeln 
noch frei Ihre Erfahrungen, Ihre Phantasie, Ihre Kreativität einbringen können, 
um zu einem Ergebnis (möglicherweise zu einem falschen!) zu gelangen, kann der 
Computer nur nach dem eingegebenen Programm vorgehen. Ist das lückenhaft 
oder falsch, wird das Ergebnis zwangsläufig falsch. 
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3 Daten - Bits — Bytes 


Sie haben erfahren, daß 3, 1/3, 17,5, 

Meier, München, 

Porschestr. 17 und 

17,35 DM 

Daten sind, die ein Computer verarbeiten kann. Sie werden nicht annehmen, daß 
man die Daten in der obigen Form in den Computer eingeben kann — man muß sie 
„computergerecht“ aufbereiten. Wenn Sie mit dem Computer verkehren — kom- 
munizieren — wollen, müssen Sie sich einer Sprache bedienen, die beide Partner — 
Sie und der Computer — verstehen und akzeptieren. 

Die Sprache ist eine Form der Kommunikation; die Schrift eine andere. Leicht 
fallen Ihnen noch andere Formen ein: die Indianer benutzen Rauchzeichen, die 
Seeleute Licht- oder Flaggenzeichen, eine Sekretärin verwendet Kurzschriftzei- 
chen, usw. 

Wichtig ist: Sie müssen den Zeichen bestimmte Bedeutungen beimessen, die 
Sender und Empfänger gleichermaßen deuten und verstehen können. 

Um es kurz zu machen: Sie verwenden einen bestimmten Code. Es gibt da eine 
Unzahl von Zuordnungen; wählen wir dafür zwei extreme Beispiele: 

Die Chinesen ordnen jedem Begriff ein bestimmtes Symbol (Schriftzeichen) zu; 
sie kennen einen Vorrat von ca. 40 000 verschiedenen Zeichen und benötigen ca. 
3500, um sich in der Zeitung über Alltäglichkeiten zu informieren. Es ist ein- 
leuchtend, daß etwas Derartiges für einen Computer in Europa wohl nicht in 
Frage kommt. 

Das andere Extrem: 

Für Ihren Code verwenden Sie nur zwei Zeichen — etwa 0 und 1. Den Inhalt einer 
Information bestimmen Sie durch eine trickreiche Aneinanderreihung nur dieser 
beiden Zeichen. 

Daß man damit — möglicherweise umständlich — alles ausdrücken kann, sehen 
Sie an einem einfachen Beispiel: 

OTTO, 
TOTO;, 
Hier verwenden Sie auch nur zwei Zeichen, trotzdem haben die beiden daraus 
gebildeten Worte eine sehr unterschiedliche Bedeutung. Diese auf ZWEI beru- 
hende Form der Codierung ist nun für Computer wie geschaffen, lassen sich doch 
die beiden Code-Elemente 0 und 1 sehr leicht in elektrischer Form nachbilden. 
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3 Daten - Bits — Bytes 


0 1 

Licht aus Licht an 

Es fließt kein Strom... Es fließt Strom „ 
Ein Schalter ist offen... Ein Schalter ist zu... 
usw. 


Versuchen Sie also, das DEZIMALSYSTEM - das die Ziffern 0...9 verwendet - in 
ein DUALSYSTEM umzuwandeln, das mit den Zeichen 0 und 1 auskommt! 
Der Anfang ist einfach: 


DEZIMALSYSTEM DUALSYSTEM 
a au 
1 1 


Damit haben Sie sich zunächst festgefahren — eine weitere Unterscheidung ist mit 
einer Stelle nicht mehr möglich. 

In dieser einen Binärstelle läßt sich die kleinste Informations- oder Nachrich- 
tenmenge unterbringen; man nennt sie ein Bit (Bit = Binary Digit). 

Wenn Sie auf der dualen Seite eine weitere Stelle spendieren, lassen sich dann 
zwei, also doppelt so viel weitere Unterscheidungen treffen. 
Setzen Sie für 


2 10 
3 11 
Sinngemäß geht es weiter: 
4 100 
5 101 
6 110 
7 111 
8 1000 
9 1001 


Damit sind alle 10 im Dezimalsystem benutzten Ziffern in eindeutig voneinander 
unterscheidbare Dualzahlen umgewandelt. Eines wird dabei deutlich: im Dualsy- 
stem benötigen Sie weniger Zeichen, dafür aber mehr Stellen! 

Das Ergebnis nochmal in einer Tabelle: 


Dezimalzahl Binärer Code 


0000 
0001 
0010 
0011 
0100 
0101 


e$wmNHO 
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3 Daten - Bits — Bytes 


6 0110 
7 0111 
8 1000 
9 1001 


Bevor Sie sich an die Betrachtung mehrstelliger Dezimalzahlen herantrauen, sei 
einmal detailliert beschrieben, was Ihnen im Laufe Ihres Lebens geläufig gewor- 
den ist. Schauen Sie auf die Zahl 


1981. 


Sie besteht aus 4 Stellen, und durch die bloße Stellung, beispielsweise der 
Ziffer 9 in dieser Zahl, wissen Sie, daß 9 hier den WERT 900 hat. Im Dezimalsy- 
stem verstehen Sie also 1981 wie folgt: 

1 mal Tausend 

+ 9 mal Hundert 

+ 8 mal Zehn 

+ 1 mal Eins. 

Schreiben Sie Tausend, Hundert usw. als Potenz von 10, dann sieht das so aus: 

1 mal 10°? — denn 1000 ist 10x 10 x 10 = 10° 

+ 9 mal 10°? — denn 100 ist 10x 10 = 10? 

+ 8 mal 10!— denn 10 ist 1x 10 = 10! 

+ 1 mal 10° — denn 1 ist 10°. 


Im Dualsystem — um das es bei Computern geht - stellen sich die Zahlen als 
Potenzen von 2 dar. 


1981 würde sich danach wie folgt aufbauen: 


1 | mal 2!°= 1024 

+ |1| mal2? = 512 
+ |1| mal2? = 256 
+ I1| mal2’ = 128 
+ |0| mal2% = 0 
+ I1| mal2°’ = 32 
+ [1] mal2* = 16 
+ [1] mal2? = 8 
+ |ı| mal2? = 4 
+ lo| mal2! = 0 
+ [1] mal2° = 1 
1981 


In einer Dualzahl dargestellt, sieht das so aus: 
1981 = 11110111101 
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3 Daten - Bits — Bytes 


Fragen Sie nicht, nach welchen Regeln das zustande gekommen ist (selbstver- 
ständlich gibt es für das Umwandeln von Dezimal- in Dualzahlen und zurück 
feste Regeln!). Es ist jedenfalls reichlich unübersichtlich, aus der reinen Binär- auf 
die Dezimalzahl zu schließen und umgekehrt. 

Etwas einfacher und übersichtlicher wird die Geschichte, wenn wir die Dezi- 
malzahl nicht als Ganzes, sondern stellenweise wie folgt codieren: 


1 9 8 1 Dezimalzahl 
10° 10? 10! 10° 


0001 1001 1000 0001 BCD-Darstellung 


Sie erkennen, daß jetzt jede Stelle der Dezimalzahl nach der Übersetzungstabelle 
auf Seite 14, unabhängig von den anderen Stellen, in eine Binärzahl umgewandelt 
wurde. 

Dieser Code ist der sogen. BCD-Code (BCD = Binär Codierte Dezimalziffer). 
Und für den gibt es Regeln der Umwandlung; Regeln, wie man mit diesem Code 
rechnen, wie man darin außer Ziffern auch Zeichen (Buchstaben, Operationszei- 
chen) darstellen kann usw. 

Begnügen Sie sich mit diesen Ausführungen und fassen Sie zusammen: 


@ Weil es technisch besonders einfach ist, (nur) ZWEI Zustände elektrisch 
nachzubilden, werden in der Computertechnik Ziffern und Zeichen in einem 
CODE dargestellt, der nur zwei verschiedene Zeichen kennt. Das einfachste 
Codewort ist ein Bit. 

© Nach Regeln und Vereinbarungen, die den Ihnen geläufigen Rechenregeln 
vergleichbar sind, kann man mit den binär dargestellten Zeichen rechnen oder— 
allgemein ausgedrückt- DATEN VERARBEITEN. 

® Aus praktischen Gründen faßt man eine bestimmte Anzahl Bit zu DATEN- 
WORTEN zusammen; diese haben bei größeren Anlagen 16 Bit. 

Bei Mikrocomputern ist ein Datenwort 8 Bit lang. Man nennt es dann ein Byte. 
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4 Encoder — Decoder 


Zwei zunächst noch widersprüchlich erscheinende Erkenntnisse gilt es noch 
unter einen Hut zu bringen: 


® Sie haben soeben gelernt, daß Computer mit Bits und Bytes gefüttert werden 
wollen, 

ferner 

© daß Sie sich beim Umgang mit Computern einer Sprache bedienen müssen, die 
dieser versteht. 

Also können Sie so lange nichts mit Computern anfangen, wie Sie die Bit-Sprache 

nicht beherrschen? 


JAIN. 
Wie gehen Sie mit Ihrem Taschenrechner um - der ja die vereinfachte Version 
eines Computers darstellt? Dort drücken Sie „3x 3 =“ — wie Sie das zu schreiben 


gewohnt sind und erhalten „9“ als ein Ergebnis, das Sie lesen können. 

Nun, wenn Sie — beispielsweise — auf die Taste 3 drücken, schließen Sie damit 
einen Kontakt. Eine Schaltung innerhalb des Rechners (oder Computers) über- 
setzt das zu 0011 und bietet das der Recheneinheit zur Weiterverarbeitung an. 
Selbstverständlich gibt der Rechner als Ergebnis seiner Rechnung - beispiels- 
weise — 1001 aus und ein weiterer Übersetzer macht daraus die für Sie verständli- 
che Zahl 9. 

Hier werden also automatisch Dezimalzahlen in Dualzahlen codiert, das macht 
ein ENCODER - und Dualzahlen wieder in Dezimalzahlen (zurück) — codiert, 
das macht ein DECODER. 
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5 Wie rechnet ein Rechner? 


Bleiben Sie zunächst bei Ihrem Computerzwerg, dem Taschenrechner. Wenn es 
ein einfaches Gerät ist, das soll hier unterstellt sein — können Sie nur die vier 
Grundrechenarten +, —, -, :, durchführen, für die der Rechner bei der Herstellung 
fest programmiert wurde. 

In Wirklichkeit können Sie noch weniger. Nämlich nur addieren. 
Der Rechner arbeitet: 


Addition: 3+ 3=6 
Subtraktion: 3+(3)=0 


Durch das Drücken der Subtraktionstaste wird das Vorzeichen des 2. Sum- 

manden umgekehrt. Die Addition ergibt dann das richtige Ergebnis 0. 
Multiplikation: 

Durch Druck auf die Multiplikationstaste wird ein Zähler aktiviert... 

Durch den (folgenden) Druck auf die Taste 5 wird der Zähler auf den Anfangs- 

wert 5 gesetzt... 

Durch eine interne Steuerung zählt der Zähler rückwärts und addiert bei 

jedem Zählschritt zu dem zuerst eingegebenen Wert 3 den Wert 3 hinzu... 

...so lange, bis der Zähler 0 erreicht hat. 

Statt 3x5 

rechnet der Rechner also 

3+3+3+3+3=15 

Division: 15:3 

Hier wird dann sinngemäß abgearbeitet 

15 + (-3) + (-3) + (-3) + -3) + 53) = 0 

Der Zähler zählt also, wie oft 3 von 15 abgezogen werden kann, bis das 

Ergebnis 0 ist. Im Beispiel geht das 5 mal; der Zählerstand 5 wird als Ergebnis 

der Division ausgegeben. 

15:3=5 

Sicherlich wird Ihr Respekt vor Rechnern und Computern immer geringer, wenn 
Sie - z. B. - daran denken, was geschieht, wenn der Computer 3 x 1725 rechnen 
soll. 

Dabei sind in Wirklichkeit die einzelnen Schritte eines Rechners oder Compu- 
ters noch detaillierter; bis zu 1000 einzelner Additions-, Schiebe-, „Speicher 
rein“-, „Speicher raus“-Operationen sind notwendig für Rechnungen, die Sie 
lässig im Kopf bewältigen. Das Geheimnis ist die Geschwindigkeit. 
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5 Wie rechnet ein Rechner 


Merken Sie sich (für den Umgang mit Computern) den lockeren, aber zutreffen- 
den Spruch: 


Wenn man schon dumm ist, sollte man wenigstens fleißig sein... 


Und fleißig ist der Computer. Mehr als eine Million mal in der Sekunde kann er 
die angedeuteten Schritte durchführen, und nur durch die enorme Arbeitsge- 
schwindigkeit läßt sich mit derartigen Wunderwerken der Technik überhaupt 
etwas Sinnvolles anfangen. 

Das alles geschieht ohne Ihr Zutun durch einen internen Taktgenerator, eine 
Art innere Uhr, über die der Taschenrechner ebenso verfügt wie der größte 
Computer. 
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6 Was tut ein Programmierer? 


Nach allem, was Sie bisher wissen, muß es ein ziemlich nervenaufreibender Job 
sein, den Computer mit Bits und Bytes zu füttern, ihn zu programmieren. Das 
kann tatsächlich so sein; nämlich dann, wenn es darum geht, mit dem Computer 
ausschließlich in der Sprache zu sprechen, die er versteht: in der MASCHINEN- 
SPRACHE. 

Aber die war selbst den Programmierern zu aufreibend, weshalb man im Laufe 
der Zeit einige höhere Sprachen entwickelt hat, die das Programmieren erleich- 
tern. Dabei haben sich im Laufe der Zeit unterschiedliche Sprachen herausgebil- 
det, je nachdem, ob sie mehr vom Hersteller (des Computers) oder vom Anwender 
(Hochschule, Industriebetrieb) beeinflußt waren. So gibt es heute beispielsweise 


FORTRAN (FORmula TRANslator, eine 1954 von IBM entwickelte Sprache); 


COBOL (COmmon Business Orientated Language, hauptsächlich für die 
kommerzielle Datenverarbeitung entwickelt); 
ALGOL (ALGOrithmic Language, algorithmische Sprache, vorwiegend 
für theoretische Zwecke entworfen) 
usw. 
Für Sie von besonderem Interesse ist 
BASIC (Beginners All Purpose Symbolic Instruction Code, eine leicht zu 


lernende Sprache für den Anfänger). 
Daneben gibt es gewissermaßen noch Dialekte zu den einzelnen Sprachen, die 
Abweichungen manchmal nur geringfügiger Art darstellen. 

Fairerweise sei hinzugefügt, daß ein Programmierer natürlich mehr (und 
Anspruchsvolleres) tut, als den Computer in seiner Sprache anzureden. Seine 
wichtigste Aufgabe besteht darin, das per Computer zu lösende Problem zu 
analysieren und in Plänen, Diagrammen usw. so weit aufzubereiten, daß es einer 
Programmierung für den Computer zugänglich wird. 


7 Vereinbarungen 


Damit Sie so rasch wie möglich mit Basic arbeiten können, wollen wir ein paar 
Verabredungen zur weiteren Vorgehensweise treffen. Um sich Mißerfolge oder 
Enttäuschungen zu ersparen, sollten Sie wenigstens eine Weile meinen Vorschlä- 
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7 Vereinbarungen 


gen wortgetreu folgen. Sind Sie erst mit Ihrem Gerät und den ersten Basic- 
Befehlen vertraut, steht Ihrer Kreativität nichts mehr im Wege. 

Ich werde die Computer-Fachsprache vermeiden. Ob etwas ein „Kommando“ 
oder ein „Statement“ oder Sonstwas ist, sollte Ihnen (noch) gleichgültig sein. Ich 
werde immer dann von „Befehlen“ reden, wenn Sie — um ein Ergebnis zu erhalten 
— Ihrer Maschine bestimmte Mitteilungen machen müssen. 

Um für Sie die Übersichtlichkeit zu erhöhen, wird dieses Buch ab Kapitel 8 
„zweiseitig‘“ — das heißt: 

Auf der linken Seite schreibe ich hin, was Sie tun oder in Ihren Computer 
eingeben sollen. 

Ebenfalls auf der linken Seite, 


aber eingerahmt 
wie hier 


finden Sie, was Ihr Computer ausgibt, sobald Sie den Befehl dazu gegeben haben. 

Auf der rechten Seite werde ich Ihnen die verwendeten Befehle erläutern und 
weitere Kommentare anbringen. 

Sobald ein Befehl zum ersten Mal auftaucht, erscheint er groß und deutlich am 
Kopf der rechten Seite, so daß Sie auch bei raschem Durchblättern des Buches 
einen Überblick haben. Außerdem finden Sie im Anhang eine Liste aller in 
diesem Buch verwendeten Befehle mit der Angabe, auf welcher Seite diese zum 
ersten Mal aufgetaucht und erklärt sind. 

Alle Programme habe ich selbstverständlich ausprobiert, und zwar auf zwei 
populären Geräten, die ich Ihnen im nächsten Kapitel vorstellen werde. 

Aber lassen Sie mich noch einmal deutlich machen: auch wenn Sie einen ganz 
anderen Computer haben — oder noch gar keinen — werden Sie mit Hilfe dieses 
Buches einen Einstieg in Basic finden. Ganz einfach deshalb, weil wir uns nur mit 
Basic-Befehlen beschäftigen werden, die JEDER Computer versteht und die 
JEDEN Computer veranlassen, das Gleiche zu tun. 

Seien Sie von dieser Aussage nicht verwirrt! Wenn Sie erst einmal Basic-Profi 
sind, werden Sie erkannt haben, daß das gar nicht so selbstverständlich ist, wie 
Sie das jetzt vielleicht erwarten. 

Auf Unterschiede bei unseren Testkandidaten weise ich Sie selbstverständlich 
hin. 

Und sollten Sie mit diesem — oder dem Computer „XYZ“ — wider Erwarten 
Schwierigkeiten haben, die Programme zum Laufen zu bringen, dann gilt als 
vereinbart: 
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7 Vereinbarungen 


© Überprüfen Sie am Schirm Ihr „Eingetipptes“! Mit großer Wahrscheinlichkeit 
haben Sie einen Eingabefehler gemacht. 

® Als „letzte Instanz“ gilt das Handbuch oder die Bedienungsanleitung IHRES 
Computers. 


Wir werden gelegentlich eine Weile an einem Programm herumbasteln müssen, 
bis Sie damit zufrieden sind. Löschen Sie deshalb ein Programm erst, wenn ich 
Sie dazu auffordere bzw. dann, wenn ein neuer Übungsabschnitt beginnt. 


7.1 Unsere Testkandidaten 


Kandidat Nr. 1 ist der C-64 von Commodore. Im Sommer 1985 „schon“ drei Jahre 
alt, schlug er seinerzeit auf dem Markt ein wie eine Bombe. Er war der erste 
erschwingliche „Home-Computer“ mit der gewaltigen Speicherkapazität von 
64 KByte Arbeitsspeicher — zu einer Zeit, als wesentlich teurere Computer mit 
16 KByte bereits als „gut bestückt“ galten. (Der Urahn aller Home-Computer, der 
PET, ebenfalls von Commodore, hatte übrigens ganze 4 KByte RAM!) 

Heutzutage spricht man kaum noch über die Kapazität des Arbeitsspeichers — 
man hat sie einfach. All das ist ein Ergebnis der immer höheren Integration, die in 
der Fertigung u. a. von Speicherbauelementen erreicht wurde und die im Ergebnis 
zu immer mehr Speicherkapazität fürs Geld geführt hat. 

Daneben verfügt der C-64 als einer der ersten über sehr gute Graphikfähigkeiten 
— und das noch in Farbe -; außerdem läßt er sich als „Musikmaschine“ program- 
mieren. 

Kurz: seitdem gilt der C-64 in vielen Ländern — darunter in Deutschland - als 
unangefochtener Marktführer in seinem Marktsegment. 

Kandidat Nr. 2 ist der CPC 464 von Schneider. 

Ebenfalls mit 64 KByte Arbeitsspeicher bestückt sowie mit den Fähigkeiten für 
Farbe, Graphik und Sound ausgestattet, ist er heute — im Sommer 1985 — noch 
nicht einmal ein Jahr alt. 

Er stellt gegenüber dem „Veteranen“ C-64 jedoch praktisch eine neue Genera- 
tion dar und läßt den C-64 ziemlich „alt“ aussehen. 

Warum das so ist, werden Sie erkennen, wenn wir die beiden Kandidaten 
einmal in wichtigen Kriterien miteinander vergleichen. Da ich weder Computer 
herstelle noch damit handle, darf ich dabei schon eine Lippe riskieren, ohne mir 
Ärger einzuhandeln. 

Wir vergleichen die beiden Geräte hinsichtlich: 


© ihrer Fähigkeiten in der Programmiersprache Basic; 
© der Art und Weise, wie man damit Graphik und Sound erzeugt. 


Zunächst zum Basic. Einen Eindruck (in Grenzen!) von der Leistungsfähigkeit 
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7.1 Unsere Testkandidaten 


einer Basic-Version gewinnt man, wenn man sich die jeweiligen „Schlüssel- 
worte“ ansieht. Im Anhang habe ich sie für beide Typen aufgeschrieben sowie 
erklärt, was ein Schlüsselwort ist. Werfen Sie einmal einen Blick darauf! Schon 
die schiere Zahl der Basic-Worte beim CPC 464 ist überwältigend. 

Und wenn Sie erst einmal richtig in Basic „drin“ sind, werden Sie erkennen, 
daß das Basic des C-64 wirklich kümmerlich ist. Nützliche Befehle, die das 
Programmiererleben erst schön machen, sind ihm unbekannt. 

Das heißt aber nicht, daß man mit dem C-64 nicht das Gleiche machen könnte 
wie mit dem CPC 464 oder einem anderen Computer. Es geht halt nur etwas 
umständlicher. 

Nachdem Sie behalten haben, daß dieser Punkt klar an den CPC 464 geht, 
vergessen Sie alles wieder. Wir als Anfänger werden weder den einen noch den 
anderen Apparat völlig ausreizen können. Und den C-64-Besitzern möchte ich die 
Freude an ihrer schönen Maschine nicht nehmen. 

Kommen wir zu Graphik und Sound. Hier hat der C-64 brillante Fähigkeiten. 
Leider entwickelt er sie nur über komplizierte, nervtötende Tipperei endloser 
Zahlenkolonnen. 

Es tut mir leid: Wo Sie beim C-64 eine ganze Seite voller Kauderwelsch 
schreiben müssen, um ihn einen Kreis zeichnen zu lassen oder ein paar Töne zu 
entlocken, genügen beim CPC 464 wenige Worte, um das Gleiche zu erreichen. 
Auch dieser Punkt geht also an den CPC 464. 

Da wir gerade von Farbe reden: Spätestens hier muß ich Farbe bekennen. Wir 
werden uns in diesem Buch weder mit Farbe noch mit Graphik oder Sound 
beschäftigen. Sie wollen sich schließlich die wichtigsten Grundlagen von Basic 
erarbeiten, und das geht völlig geräuschlos und ohne bunte Bildchen! Nicht böse 
sein! 

Nach alledem könnten Sie annehmen, daß der „bessere“ CPC 464 teurer sei. Er 
ist es nicht! Vergleicht man einmal die Preise einer Grundausstattung — bestehend 
aus Computer, Datenrecorder und monochromem (einfarbigem) Monitor —, dann 
ist er sogar billiger! 

Doch genug davon. Ich wollte den C-64 keineswegs madig machen. Ich wollte 
Ihnen nur vor Augen führen, wie sich die oft strapazierte „Innovationsgeschwin- 
digkeit“ der Mikroelektronik im Preis-/Leistungsverhältnis auswirkt. 

In diesem Frühjahr munkelte man von einer neuen „Geheimwaffe“ von Com- 
modore — dem C 128 - der wieder wie ein Blitz einschlagen dürfte. Ich schreibe 
dieses Kapitel für die nächste Auflage gerne um! 

Falls Sie noch keinen Computer besitzen: Schließen Sie aus meiner Story nicht, 
Sie sollten mit dem Kauf eines Computers solange warten, bis die „absolute“ 
Maschine mit einem Preis in der Nähe von Null auf den Markt kommt. 

Sie würden dann nie in den Besitz eines Computers gelangen. 

Und noch einen Unterschied gibt es bei unseren Kandidaten: die Tastatur. 
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7 Vereinbarungen 


Da das künftig unser Arbeitsfeld sein 


wird, zeige ich Ihnen unten in den Abb. 2 
2 und 3 beide Tastaturen. Sie erkennen, daß 


2 
f3 
f4 


die meisten Tasten identisch sind und auch 
(fast) alle am gleichen Platz sitzen. Schauen 
Sie sich die Tastaturen anderer Computer 
an, werden Sie einen ähnlichen Eindruck 
gewinnen. 

Ich habe übrigens auf die Tastaturen nur 
das aufgemalt, was für uns wichtig ist. Grau 
unterlegt sind alle Tasten, auf denen wir 
klimpern werden. 


Abb. 2 Die Tastatur 
des C-64 
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7.1 Unsere Testkandidaten 
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Abb. 3 Die Tastatur 


des CPC 464 
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8 Zum Anwärmen — 
der erste Schritt zum Programmierer 


Und nun schalten wir endlich ein! Nach der von elektrischen Geräten bekannten 
Anwärmphase sehen Sie etwas auf dem Bildschirm. Beim Commodore C-64 
erscheint: 


*%*%*%* COMMODORE BASIC V2 rk 
64 KRAM SYSTEM 38911 

BASIC BYTES FREE READY. 

| 


Und das erscheint beim CPC 464 von Schneider: 


Schneider 64 K Microcomputer (v1) 
© 1984 Amstrad Consumer 
Electronics plc and 

Locomotive Software Ltd. 


BASIC 1.0 


Ready 
| 


26 


8 Zum Anwärmen 


Mit diesen Bildern stellen sich beide Geräte vor. Sie nennen den Hersteller des 
Gerätes und — beim CPC 464 - den der Software. 


© Heißt es nicht im Prospekt des C-64: „Ein Computer mit 64-K-RAM-Spei- 
cher...“? 


Hier teilt er Ihnen trocken mit: ”38911 BASIC BYTES FREE”. Was bedeutet, 
daß Ihnen für Programm und Daten - kurz: für Ihre Arbeit — von den stolzen 
64 KByte RAM nur noch knappe 38 KByte zur Verfügung stehen. Den Rest 
benötigt er für sich selbst. 


© Der CPC 464 schweigt vornehm darüber, wieviele Bytes er Ihnen von seinen 
ebenfalls vorhandenen 64 KByte übrig läßt. 
Wenn Sie’s wissen wollen: Es sind etwas über 42 KByte. 


Ich darf Ihnen jedoch versichern, daß Sie in diesem Buch an keiner Stelle über 
Speichermangel zu klagen brauchen. 


© Zum Schluß sehen Sie jeweils ein kleines Quadrat — das beim C-64 sogar 
munter blinkt. Das ist der CURSOR (Zeiger), der Ihnen anzeigt, auf welcher 
Position beim nächsten Tastendruck das gewünschte Zeichen (Buchstabe, 
Ziffer oder Zeichen) erscheinen wird. 
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8 Zum Anwärmen 


Ich darf annehmen, daß Sie schon einmal einen Taschenrechner in der Hand 
gehabt und damit gerechnet haben? Gut. 

Ich will nicht annehmen, daß Sie schon einmal mit einer (elektrischen) 
Schreibmaschine geschrieben haben. 

Nun sitzen Sie vor Ihrem „Personal-Computer“, dessen Tastatur stark an die 
einer Schreibmaschine erinnert. Einige Modelle — darunter auch der CPC 464 — 
haben rechts von der Schreibmaschinentastatur noch einen Tastenblock mit 
Ziffern und Zeichen. 

Ihr erstes Problem: Wenn Sie Zahlen eingeben wollen — welche Tasten benut- 
zen Sie? Die auf der oberen Reihe der Schreibmaschinentastatur oder die des 
rechten Tastenblocks? Nehmen Sie, welche Sie wollen! 

Entschließen Sie sich zur Verwendung der großen Tastatur — wie ich das aus 
Gewohnheit tue — dann haben Sie das nächste Problem: 


Drücken Sie auf die Taste oder , erhalten Sie die Eingabe 5 bzw. 6. 


Und wenn Sie das Zeichen am oberen Rand dieser beiden oder anderer, doppelt 
belegter Tasten eingeben wollen, also beispielsweise % oder &? Auf der unteren 
Tastenreihe finden Sie links und rechts je eine doppelt große Taste: 


SHIFT | und gleichzeitig gedrückt, ergibt die Eingabe % 


Und so weiter.. 


Wie vereinbart, haben Sie sicher alles mitgeübt und nun eine Menge Unsinn auf 
dem Schirm. Man sollte halt die Tafel abwischen können! 
Ich verrate Ihnen, wie das geht. 


© Tippen Sie beim CPC 464 die Buchstaben CLS*), 


danach 


© Und beim C-64 gleichzeitig die Tasten: 
FT CLR 

a 

Sind Sie mit Ergebnis zufrieden? 


*) Siehe ®, Seite 258 
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Das mit| SHIFT |geht in Zeitlupe so: 
SHIFT drücken - gewünschte Taste drücken — Taste loslassen —-| _SHIFT 


loslassen. 


Das heißt, während der Betätigung der gewünschten Taste sollte | SHIFT 


gedrückt sein. 


Wichtig für Ihre weiteren Fortschritte sind folgende Tastenkombinationen: 


Tasten beim: 
Ihr Job: CPC 464 C-64 bedeutet: *) 
Addition 
Subtraktion =) -| „Minus“ = 
en & [=] | eier - 


Für Multiplikation und Division versteht der Computer nur Zeichen, die Sie dafür 
üblicherweise nicht verwenden: 


Multipli- SHIFT = „Mal“ ” 


tion 


asien ? 8 
Division / / „geteilt durch‘“/ 


0] ENTER oder — beim C-64 - RETURN bewirkt den Abbruch der 


laufenden sowie den Anfang einer neuen Zeile. Merken Sie sich für’s erste, daß 
das der Taste „Wagenrücklauf“ an einer elektrischen Schreibmaschine ent- 
spricht. 

© CLS steht für „CLear Screen“; „Lösche den Bildschirm!“. 
Dabei wird der Bildschirm gelöscht und der Cursor erscheint wieder links 
oben auf dem Bildschirm. Falls ein Programm gespeichert ist — (Sie sind davon 
noch ca. 30 Minuten entfernt!), wird dieses durch CLS NICHT gelöscht. 


*) Siehe ®, Seite 258 
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9 Der Computer als Rechenmaschine 


Würden Sie jetzt mit Ihrem Taschenrechnerwissen auf Ihren Computer losgehen 
und — wie beim Taschenrechner — 3+5= eingeben, dann wäre Ihr Computer 
durch nichts in der Welt zu bewegen, Ihnen das Ergebnis zu verraten. 

Der Grund liegt darin, daß Ihr Taschenrechner im Werk fest auf seine Aufgabe 
programmiert wurde. Ihr Computer aber ist ein frei programmierbarer Rechner — 
was leider zunächst bedeutet, daß Sie ihm nicht nur die Daten eingeben müssen. 
Sie müssen ihm auch sagen, was er damit tun soll. 

Tippen Sie einmal: 


PRINT 15 5 
ENTER 
Sobald Sie | ENTER | drücken, zeigt der Bildschirm: 
RETURN ) ") 


PRINT 15/5 
3 
READY 


Sie vermuten richtig: 3 ist das Ergebnis, das der Computer Ihnen anzeigt. 


Daß Sie das mit Ihrem Taschenrechner billiger - und mit weniger Manipulatio- 
nen — auch rauskriegen, war den Vätern Ihres Computers auch klar. 
Seien Sie von ihm noch nicht enttäuscht! 


*) Sie haben das ja längst spitz: beim CPC 464 heißt es ENTER, beim C-64 heißt es RETURN. Künftig 
beschränke ich mich auf ENTER. Einverstanden? 
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PRINT ? 


PRINT 
ist ein Ausführungsbefehl, der — das haben Sie ja auf dem Bildschirm gesehen — 
hier bedeutet: RECHNE und DRUCKE DAS ERGEBNIS AUS! 

Wie alle Computerbefehle, so kommt auch PRINT aus der englischen Sprache. 
Ein „Printer“ ist ein Drucker; Print heißt wörtlich DRUCKE! 

Wie gesagt, hier, bei Ihrer ersten Rechenaufgabe, bedeutet PRINT Rechne! oder 
„Schreibe das Ergebnis...“ 

Für viele Computer gibt es eine nützliche Abkürzung für 


PRINT : ? 


Geben Sie Ihre erste Aufgabe doch einmal wie folgt ein: 


Also: ? ist die Abkürzung für PRINT. 


Und nun noch ein paar Takte zu RETURN bzw. ENTER, von denen Sie bis jetzt 
wissen, daß sie der Taste „Wagenrücklauf“ auf einer elektrischen Schreibma- 
schine entsprechen. 

Bei Ihrem neuen Spielkameraden hat diese Taste zwei Bedeutungen: 

@ Sie brechen die Eingabe ab und führen den gegebenen Befehl sofort aus. Das 
nennt man den „Direkt-modus‘“; Sie hatten das z. B. erlebt bei: 

PRINT 3 *5 
@ Sie brechen die Eingabe einer Befehlszeile ab und übernehmen diese in den 

Arbeitsspeicher. Das kriegen wir in ca. 28 Minuten! 
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9 Der Computer als Rechenmaschine 


Jetzt können Sie einmal alle vier Grundrechenarten durchprobieren! Geben Sie 
in: 


& 


CPC 464 C-64 


PRINT 17 25 PRINT 17 


dann 
= 23 PRINT 24 2 23 
PRINT 5 7 PRINT 5 a 


? 
BL 


Als Ergebnis müßten Sie jetzt auf Ihrem Bildschirm stehen haben: 


PRINT 17 + 25 
42 

READY 
PRINT 24 — 23 
1 

READY 


PRINT5 *7 
35 

READY 
PRINT 12/6 
2 

READY 

u 


Haben Sie auch mal ? anstelle von PRINT versucht? 


wo 
D 


9 Der Computer als Rechenmaschine 


Ich empfehle Ihnen, das eine Weile zu üben, auch wenn’s Ihnen noch so 
lächerlich erscheint. Gehen Sie dabei ruhig etwas „ran“; meine folgenden Hin- 
weise sollen Sie vor Fallstricken bewahren. 


® Ob Sie auf einer Schreibmaschine für Null ein kleines o oder ein Großes O oder 
das richtige Zeichen 6 wählen, Sie erkennen in 10, 10 oder 16 immer „Zehn“. 
Ihr Computer gerät dabei ins Schleudern. Er will korrekt angeboten haben: Null 
ist O !! 


® Wenn Sie die Summe von 7 und 3 (nach Adam Riese ist das 10) mit der Summe 

von 5 und 5 (das ist auch 10) malnehmen wollen, könnten Sie Ihren Computer 
so füttern: 7+3*5+5. 
Er wird ausgeben: 27. Und das ist falsch! Nach obigem Text muß dabei 100 
rauskommen. Sie haben die in den Computer eingebauten Rechenregeln nicht 
beachtet. Die lauten: 

* wird vor + (oder —) gerechnet 

/ wird vor + (oder —) gerechnet 

* und / sind gleichrangig 

+ und - sind gleichrangig 
Zu dem Ergebnis 27 ist der Computer gekommen, weil er gerechnet hat: 3*5 = 
15+7=22+5 = 27. 
Den obigen Text hätten Sie so eingeben müssen: 

(7+3)*(5+5). 
Wenn Sie das tun, sagt der Computer 16& 
Üben Sie diese Klammerei; im weiteren Verlauf des Buches werden wir noch oft 
darauf zurückkommen. 


® Schließlich sollten Sie auch mal rechnen: 
5 mal 3 Komma 5. 
Schreiben Sie das, wie gewohnt, spielt Ihr Computer nicht mit. Für ihn mußes 
heißen 3.5 (also Punkt statt Komma!). 
© Beachten Sie noch, daß der Computer überflüssige Nullen unterdrückt. Und 
zwar automatisch. 


Also 65 wird .5 
00.55 wird .55 
3.560 wird 3.5 
aber 3.5061 wird 3.5601 


So, das reicht einstweilen. Je gründlicher Sie das üben, um so schneller erreichen 
Sie Ihr Ziel. Sie wollten doch Basic lernen? 
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10 Der Computer als Schreibmaschine 


Wenn der Computer schon eine so einladende Schreibmaschinentastatur hat, 
liegt es doch nahe, ihn einmal als Schreibmaschine zu benutzen. 

Ob Sie die Tasten perfekt wie eine Stenotypistin mit allen zehn Fingern 
bedienen oder das Einfingersystem benutzen, ist dem Computer dabei gleichgül- 
tig. Nur treffen müssen Sie halt die richtige Taste! 

Bevor Sie jetzt zielen, müssen wir uns kurz mit den Unterschieden unserer 
Testkandidaten beschäftigten. 

Wenn Sie sich an eine Schreibmaschine setzen und auf die Taste drücken, auf 
der „E“ steht... dann schreibt sie ein „e“. 

Wollen Sie ein „E“ erreichen, müssen Sie bekanntlich während des Druckes auf 
„E“ die Shift-Taste gedrückt halten. Sehen Sie, genau so benimmt sich der 
CPC 464. 

Der C-64 druckt gleich ein „E“, wenn Sie auf die Taste mit dem „E“ drücken. 
Der kann zwar auch kleine Buchstaben schreiben. Aber das bringt uns für Basic 
nichts. Deshalb vereinbaren wir: 
® Der C-64 bleibt, wie er ist und druckt in großen Buchstaben. Und die CPC 464er 


drücken auf die Taste Ge ‚ dann benimmt sich Ihr Apparat genauso! 


Tippen Sie einmal ein: 


LIEBE TANTE BERTA 


Was der Computer damit anfängt, sehen Sie auf Seite 36, offenbar nichts! Nun 
kennen Sie doch schon mit PRINT einen Ausführungsbefehl. Versuchen Sie den! 


Also: 

PRINT LIEBE TANTE BETTA ... Ja, so gehts einem Anfänger! BERTA wollten 
Sie schreiben, nicht BETTA. 

Glücklicherweise ist das Korrigieren von Tippfehlern bei einem Computer sehr 
einfach. 

Suchen Sie die Taste: 


. . INST 
Beim CPC 464 DEL ‚ beim C-64 


*) Siehe O, Seite 258 
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Caps INST 
LOCK DEL 


Wenn Sie da drauf drücken, verschwindet das A; beim nächsten Tastendruck 
das T, beim dritten schließlich auch das zweite T. 


Und nun schreiben Sie noch einmal richtig: 
PRINT LIEBE TANTE BERTA 


Das hat dem Computer auch nicht gefallen! Ich will’s Ihnen verraten: Tippen Sie 
PRINT "LIEBE TANTE BERTA“ 


Das Ergebnis Ihrer bisherigen Fingerübungen zeigt der Bildschirm auf Seite 36. 
Durch jeden Druck auf die beschriebenen Tasten geht der Cursor um eine 
Zeichenposition nach links; dabei wird ein etwa dort stehendes Zeichen gelöscht 
und kann anschließend durch ein anderes überschrieben werden. 


Anmerkung: Es gibt für beide Computer auch andere Methoden, „Verschriebenes“ 
auszubessern. Aber für uns Anfänger reicht die gezeigte vorerst aus! 


35 


10 Der Computer als Schreibmaschine 
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LIEBE TANTE BERTA 

? SN ERROR 

READY 
PRINT LIEBE TANTE BERTA 
) 

?SN ERROR 

READY 


PRINT”LIEBE TANTE BERTA” 
LIEBE TANTE BERTA 


READY 
| ‚ 


? SN ERROR "xxxx” 


? SN ERROR ist eine Fehlermeldung des Computers. Er gibt Ihnen damit zu 
verstehen, daß er Ihre Eingabe nicht begreift. Sie haben gegen die eingebaute 
Grammatik verstoßen. SN ist eine Abkürzung für Syntax; ? SN ERROR bedeutet 
sinngemäß „Verstoß gegen die Regeln!“ 

Bei Ihrem zweiten Versuch hat der Computer zunächst ® ausgegeben; Er hatte 
offenbar PRINT wie besprochen als RECHEN-Befehl aufgefaßt; ein Befehl, den Sie 
ja schon reichlich geübt haben. 

Beim letzten Versuch PRINT "LIEBE TANTE BERTA” hat er das gewünschte 
Ergebnis LIEBE TANTE BERTA ausgegeben; offenbar hat er diesmal PRINT als 
SCHREIB-Befehl aufgefaßt. 

Dabei haben wir nichts anderes gemacht, als den gewünschten Ausdruck in 
(„Gänsefüßchen”) zu setzen — und genau darauf kommt es an. 

PRINT heißt RECHNE und SCHREIBE DAS ERGEBNIS AUF! 

PRINT ”......... ” heißt SCHREIBE! 

Das wird Ihnen bald in Fleisch und Blut übergehen! 

Übrigens: Sie sind noch ca. 15 Minuten vom Programmieren entfernt! 


LE} 
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11 Was ein Taschenrechner nicht kann 


Nachdem Sie in den ersten Versuchen den Computer als (bescheidene) Rechen- 
maschine, danach als Schreibmaschine kennengelernt haben, werden Sie neugie- 
rig sein, wie man diese Fähigkeiten kombinieren kann. Legen Sie los: 


PRINT 3*7 das war die Rechenmaschine! 
ENTER 


weiter: 
PRINT ”3*7” das war die Schreibmaschine! 


ENTER 


und nun: 
PRINT "3 *7=",3*7 ..und das ist die schreibende 
ENTER Rechenmaschine! 


Weil’s so schön war, tippen Sie ein (lassen Sie aber kein Zeichen aus!): 
PRINT”WIEVIEL IST 3 * 7 ?”,; "DREI MAL SIEBEN IST”;3 * 7 


ENTER Und das muß auf dem Bildschirm stehen! 


PRINT 3 *7 
21 
READY 
PRINT”3 * 7” 
3*7 
READY 
PRINT”’3 *7="3*7 
3*7=21 
READY 
PRINT”WIEVIEL IST 3 * 7 ?”, "DREI MAL SIEBEN IST”; 3 * 7 
WIEVIEL IST 3 * 7 ? DREIMAL SIEBEN IST 21 


READY 
u 
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=.+ 


) 


Ich denke, die Beispiele erklären deutlich genug, um was es geht. Sie haben 


erkannt, daß man in ” ” ALLES verstecken kann; Ziffern, Buchstaben, 
Zeichen usw.; immer wird der Computer brav ohne weitere Bearbeitung das 
einfach hinschreiben, was in ” ” steht. 


Aber es gibt eine Ausnahme! Wenn Sie etwa schreiben: 
PRINT ”ICH DACHTE,“MEIN SCHWEIN PFEIFT”,ALS ICH DAS SAH” 
versteht der Computer nur das, was zwischen erstem ” und zweitem ” steht und 
wird ausgeben: 
ICH DACHTE d 
?SN ERROR 
READY 


Also, wenn Sie schon Ihr Schwein pfeifen lassen wollen oder etwas anderes 
hervorheben müssen, versuchen Sie es mal so: 


PRINT”ICH DACHTE, ’MEIN SCHWEIN PFEIFT’,ALS ICH DAS SAH” 


Das Zeichen dazu finden Sie mit SHIFT 


Wir müssen uns noch mal mit der Eingabe 

PRINT”3 * 7=";3 * 7 

beschäftigen. Der erste Teil der Zeile ist klar: Sie befehlen dem Computer 3 * 7 = 
hinzuschreiben. 

Aber dann habe ich ein ; (Strich-Punkt oder Semikolon) dazwischen geschmug- 
gelt. Was hat das zu bedeuten? 

Nun, dieses Zeichen versteht der Computer als Aufforderung, unmittelbar nach 
Ausführung des ersten Teils Ihres Befehls das folgende zu tun: PRINT 3*7. Und 
das ist ein glasklarer Befehl, 3 * 7 auszurechnen — was der Computer, wie Sie auf 
dem Schirm sehen - auch unverzüglich erledigt. 

Beim letzten Beispiel ist ; zweimal verwendet; wenn Sie das Ergebnis betrach- 
ten, sind wohl alle Klarheiten beseitigt? 
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12 Satzzeichen 


Sie haben bisher schon eine Menge Zeichen verwendet. Wir sollten diese noch 
einmal im Zusammenhang durchgehen, damit Ihnen die Verwendung der Zei- 
chen restlos klar wird. 

Geben Sie zunächst der Reihe nach das Folgende ein; betrachten Sie danach das 
Schirmbild und studieren Sie anschließend meine Erklärungen auf der nächsten 


PRINT "MEIER”;”MEIER” 
ENTER 


PRINT "MEIER ”;”MEIER” 


PRINT”’MEIER”,”MUELLER” ”’SCHULZE”,”"WEBER” 


PRINT 3 *2,5 
6 
READY 
PRINT 3 * 2.5 
7.9 
READY 
PRINT”MEIER”;”MEIER” 


MEIERMEIER 
READY 
PRINT”MEIER ";”MEIER” 
MEIER MEIER 
READY 
PRINT”MEIER”,”MUELLER”,”’SCHULZE”,”WEBER” 
MEIER MUELLER SCHULZE 
READY 
u 
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12 Satzzeichen 


© Inder ersten Zeile wollten Sie wohl rechnen lassen „drei mal zweikommafünf“, 
haben aber aus alter Gewohnheit ein Komma gemacht. Statt des für Ihren 
Computer vorgeschriebenen Punktes. 
Der Computer hat Ihre Eingabe so verstanden: Drei mal Zwei, weiterrücken, 5 — 
und er hat das auch brav gemacht. 
Was heißt hier weiterrücken? Das Komma ist für Ihren Computer ein Tabellier- 
befehl. Sobald er in einer Zeile auf ein Komma stößt, rückt er auf derselben Zeile 
eine Spalte weiter und setzt dort seine Arbeit fort. Bei Print ist also der Schirm 
in (unsichtbare) Spalten eingeteilt. 


© Jawohl! 3*2.5 ist richtig eingegeben; der Computer antwortet mit 7.5. 


© Den ; hatten wir schon! Hier macht’s der Computer nicht besonders schön und 
klatscht den einen Meier direkt an den anderen. 


© Und warum tut er’s jetzt nicht? Betrachten Sie einmal genau die Eingabe! Dort 
ist zwischen dem letzten Buchstaben und ” ein Zwischenraum! (Ergibt sich 
durch einen Druck auf die große Leertaste!) Auch ein Zwischenraum, ein Druck 
auf die Leertaste oder, wie die Computerleute heute sagen, ein „Blank“ ist für 
den Computer ein Zeichen!! Wenn Sie sich angewöhnen, künftig vor dem 
zweiten ” ein Blank zu machen, können Sie solche unschönen Überraschungen 
vermeiden! 


Ich zeige Ihnen das noch einmal an einem Extra-Beispiel! 
16 PRINT”3*5 IST”;3*5;”’DAS GEFAELLT MIR NICHT !” 
ergibt: 
3*5 IST15DAS GEFAELLT MIR NICHT ! 
Aber: 
10 PRINT”3*5 IST ”;3*5;” DAS IST GUT !” 
ergibt: 3*5 IST 15 DAS IST GUT! 
Sehen Sie den Unterschied? 


© Hier führe ich Ihnen noch einmal die Funktion des Kommas vor. Sie erkennen 
daraus, daß mein Computer — und die meisten anderen „Personal-Computer“ 
auch — maximal 4 Spalten schreiben kann. 
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13 Zurück! Wir rechnen weiter! 


Die letzten drei Abschnitte habe ich eingeschoben, um Ihnen etwas Abwechslung 
zu verschaffen und Sie nicht nur mit der Rechnerei zu nerven. Aber es wäre 
beschämend, wenn der Computer nicht mehr könnte. Er kann’s in der Tat! 

Es hilft alles nichts — wir müssen noch einmal zurück. 

Können Sie sich noch daran erinnern, wie Sie in der Schule die Aufgabe: 2*2*2*2 
vereinfacht haben? Erinnern Sie sich an 2* (gesprochen: 2 hoch 4)? 


Es ist also 2*2 =4 =25; 
za, (EB 52 
2*2*2*2 =16 = 2% usw. 


Wenn Sie solche Aufgaben mit dem Computer rechnen, ist es dem egal, ob Sie 
2*2*2*.. eintippen. Aber ich möchte Ihnen eine Vereinfachung beibringen. 
‘Unglücklicherweise gibt es für den Computer nicht die Schreibweise 2*. Aber 
es gibt einen Umweg: 


Tippen Sie: ‘) 


Zeclamy 


War’s schwer? 
Nun zu einer anderen Übung. Sie wissen, daß Y16 = 4 ist (Quadratwurzel aus 
16 = 4). Betrachten Sie folgende Tabelle: 


2 = 4; Yi= 2; 23 = 8; Vb=2; 
2 = 16.5 Ale 2; 
Auch für Y hat der Computer kein direktes Zeichen. Für Y = Quadratwurzel gibt 
es den Begriff SQR. Tippen Sie ein 


? SQR (16 ) 


Entweder, Sie sind ein so guter Mathematiker, daß Sie das Folgende nachvollzie- 
hen können - oder Sie sollten es mir glauben und damit arbeiten. Ich will Ihnen 
schließlich BASIC beibringen und kein Mathebuch vorsetzen. 
Wenn Sie die dritte Wurzel (\Y) ziehen wollen, geben Sie ein: 


?8 GC: 13) (das Ergebnis ist 2); 
?16 zZ (1/4) (das Ergebnis ist ebenfalls 2) 


*) Siehe &, Seite 258 
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® Die Rechnung mit „hoch...“ heißt Potenzieren. 


Der Computer benötigt dazu das Zeichen (_) 
Beispiel 3° wird eingegeben 3 _) 5 


© SQR ist eine Abkürzung für SQARE ROOT; zu deutsch „Quadratwurzel“. 
Wichtig ist, daß Sie die Zahl, deren Quadratwurzel Sie ziehen wollen, in( ) 


setzen. 


Also Y4 = SQR (4) 


© Wollen Sie die dritte, vierte oder ...Wurzel ziehen, dann wählen Sie mangels 


geeigneter Eingabetasten: 


Um wird 7} (1/3) 
V wird (_) as 
V.. wird ) (1/5) 


usw. 
© Komplettieren wir nun unsere „Rangliste“ von Seite 33. 


= wird vor * und / abgearbeitet 


V wird vor * und / abgearbeitet 
* wird vor + und — abgearbeitet 
/ wird vor + und - abgearbeitet 


und vV, * und /, + und - sind jeweils gleichwertig. 
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13 Zurück! Wir gehen weiter! 


Ich denke, ein paar Klammerübungen sind noch nützlich! 


?7:6) 


?(£7/2)*(1+4))/10 


?(5-3)*(16+5))*5 


?((5-3)*(16+5))*5 


ENTER Der Bildschirm zeigt jetzt: 


?7+(-3) 
4 

READY 
?((7/2)*(1+4)J/16 
1.75 

READY 
?(5-3)*(10+5))*5 


30 
? SN ERROR 
READY 
?((5-3)*(10+5))*5 
156 
READY 
a 
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Geben Sie ein: 


® Wenn Sie Geld auf Ihrem Bankkonto haben, dann ist das ein Guthaben; Ihre 
Bilanz ist positiv. Haben Sie dort „Miese“ — also Schulden, dann ist Ihre Bilanz 
negativ. 
Der Computer rechnet sowohl mit positiven als auch mit negativen Zahlen. 
Der Computer begnügt sich aber großzügig mit 3, wenn Sie +3 meinen. Bei der 
Eingabe von positiven Zahlen können Sie auf das Vorzeichen verzichten. 
Bei der Eingabe von negativen Zahlen müssen Sie das Vorzeichen angeben! 
Es gibt Computer, die akzeptieren etwa folgende Eingaben: 
7 +3 oder 12/-2 oder 5*-7 
Es sieht nicht nur besser aus, sondern wirkt auch übersichtlicher, wenn Sie 
negative Größen in ( ) setzen, also: 
7+(-3) oder 12/(-2) oder 5*(-7) 

® Machen Sie ausgiebigen — und überlegten - Gebrauch von Klammern! 
Merken Sie sich . a 


))) 
NL 1. Klammer = | 
2. Klammer — 


3. Klammer 

Der Computer arbeitet zuerst die innere (1) Klammer ab... 

arbeitet danach die zweite (2) Klammer ab... 

arbeitet zuletzt die äußere (3) Klammer ab. 
Achten Sie darauf, daß in einem Ausdruck soviele sich öffnende Klammern ‚„(“ 
enthalten sind, wie sich schließende „‚)“. 
Diese Regel hatten wir bei der vorletzten Aufgabe nicht beachtet. Was den 
Computer prompt zu der Falschaussage 36 — aber immerhin auch zu einer 
Fehlermeldung - veranlaßte! 
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14 Endlich! Wir schreiben unser erstes Programm! 


Bisher haben Sie Ihrem Computer immer nur einzelne Befehle gegeben. Ein 
Programm ist eine Liste von Befehlen, die einer nach dem anderen erledigt 
werden. Geben Sie ein: 


16 PRINT "BERECHNUNG DER KREISFLAECHE” 
ENTER 


ENTER 

40 PRINT”DER RADIUS IST 25MM” 
ENTER 

560 PRINT’DANN IST DIE KREISFLAECHE ";25 2*3.16;” QMM” 
ENTER 


Sie haben also ein Programm geschrieben, mit dem Sie die Fläche eines Kreises 
berechnen wollen, dessen Radius 25 mm ist. Ein solches Programm starten Sie 
mit einem besonderen Befehl: Tippen Sie ein: 


UN 
ENTER Und das ist der Lohn für Ihre Mühe: 


Ks) 


16 PRINT”BERECHNUNG DER KREISFLAECHE” 
26 PRINT” 
30 PRINT 

40 PRINT”’DER RADIUS IST 25MM” 

56 PRINT”DANN IST DIE KREISFLAECHE ”;25 1 2*3.16;” QMM” 
RUN 


BERECHNUNG DER KREISFLAECHE 


DER RADIUS IST 25 MM 
DANN IST DIE KREISFLAECHE 1975 QMM 


READY 
u 


RUN 


Was ist passiert? 

Ein Programm beginnt immer mit einer Zeilen-Nummer. 

Sie könnten zwar fortlaufend mit 1,2,3,4... numerieren. Aus Gründen, die Sie 
noch schätzen lernen werden, wählt man aber größere Zeilenabstände. Ich habe 
mich im Beispiel für 16, 20, 30... entschieden. 


Wichtig ist: Die Befehle werden in der aufsteigenden Reihenfolge der Zeilen- 

Nummern abgearbeitet. 

In Zeile 16 schreiben Sie die „Überschrift“. 

In Zeile 20 unterstrichen Sie diese; Sie wissen ja, daß man in ”.....‘“ (fast) alles 
verstecken kann! 

In Zeile 30 steht nur PRINT. PRINT mit „gar nichts“ dahinter veranlaßt den 
Ausdruck einer Leerzeile. 

In Zeile 40 teilen Sie den Wert 25 für den Radius mit. 

In Zeile 560 schreiben Sie den „Ausgabetext“, gefolgt von der Formel für die 
Kreisfläche. 


Gestartet wird das Programm mit RUN | ENTER 


Hat Ihnen das Ergebnis — der Bildschirm-Ausdruck - gefallen? 
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14 Endlich! Wir schreiben unser erstes Programm! 


Sie machen jetzt Ihre wichtigste Erfahrung im Umgang mit Computern! Das 
Ergebnis sieht zwar hübsch aus. Es ist aber falsch! Warum? 

Nun, schon seit einiger Zeit gilt für ın der Wert 3.1416... — wir aber haben in die 
Formel, Zeile 50, eingesetzt: 3.16. Und das hat der Computer nicht gemerkt!? Er 
hat es NICHT! 

Bitte merken Sie sich: 

® Ein Computer ist schnell, aber dumm! 

® Die Intelligenz steckt im Programm, nicht im Apparat! 

® Was der Computer ausgibt, kann nicht besser — oder richtiger - sein, als das, was 
Sie ihm an Daten und Befehlen eingeben! 

® Wenn Ihnen jemand erklärt: „Das geht nicht...“, „das kann der Computer 
nicht...“ — dann heißt das in Wirklichkeit: 

® Das will ich — der Programmierer — nicht! oder 

© Das kann ich — der Programmierer — nicht! 


Weil bildliche Darstellungen besonders gut haften sollen, noch einmal: 


»Mist raus« < 


„u — TR r 
PL She N D 
“ Do 
6 


Abb. 4 Auf Englisch: Garbage in, Garbage out! (Aus: M. F. Wolters, Der Schlüssel zum Computer. 


Econ-Verlag Düsseldorf) 
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14 Endlich! Wir schreiben unser erstes Programm! 


Nach diesem ersten Schock etwas zur Aufmunterung! Ihr letztes Programm 
steht noch? Wenn nein, geben Sie es bitte noch einmal ein, so wie es war! 
Danach geben Sie ein: 

50 PRINT”’DANN IST DIE KREISFLAECHE ”;25 ? 2*3.1416;” QMM” 
Wenn Sie jetzt mit 
RUN 


starten, erhalten Sie den gleichen Ausdruck wie vorhin — aber jetzt mit dem 
richtigen Ergebnis. (Weil Sie jetzt für x den richtigen Wert eingegeben haben.) 
Fazit: 

Wenn Sie sich geirrt haben, einen Fehler gemacht haben - einen logischen oder 
einen Tippfehler - dann können Sie das durch Eingabe des richtigen Wortlautes 
wiedergutmachen. 

Sie können in einem Programm einfach den falschen Zeileninhalt mit dem 
richtigen Zeileninhalt überschreiben. 
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14 Endlich! Wir schreiben unser erstes Programm! 


Bevor wir uns an das nächste Programm machen, ein praktischer Hinweis: 

Angenommen, das letzte Programm ist noch in Ihrem Computer gespeichert. 
Wenn Sie jetzt ein neues eingeben, könnten sich später bei der Ausführung altes 
und neues Programm beißen. Es ist zweckmäßig, vor Beginn eines neuen Pro- 
gramms „Klar Schiff“ zu machen und ein etwa noch gespeichertes, altes Pro- 
gramm zu löschen. Tippen Sie ein: 


EW 
ENTER 


zZ 


Geben Sie auf dem nun wieder jungfräulichen Gerät ein: 
10 PRINT”WIEDERHOLUNG” 


ENTER 

26 PRINT”DER RADIUS IST ”; 16)” MM” 
ENTER 

36 PRINT”DANN IST DER DURCHMESSER ”; 2*10;” MM” 
ENTER 


2 
G 
zZ 


ENTER 


< 
n: 
) 
— 
— 
© 
&, 
oO 
ag 
+ 
un 
Mn. 
©: 
. 
+ 
© 
un 
un 
4 
o 


daß jetzt Programm und Ergebnis zusammen auf dem 


Schirm stehen? Außerdem haben Sie — vielleicht — vergessen, „WIEDERHOLUNG“ 
zu unterstreichen? Lassen Sie alles, wie es ist, und geben Sie ein: 


5 CLS*) Für G-64 : PRINT CHR$(147) 


ENTER 


ENTER Nun könnten Sie eigentlich (für das erste) zufrieden sein! 


*) Siehe ®, Seite 258 


a1 
[e} 


PRINT CHR$ (147) NEW LIST 


© Sie können ein Programm löschen, wenn Sie einfach das Gerät ausschalten. 
Weil bei Verlust der Versorgungsspannung die Arbeitsspeicher ihr Gedächtnis 
verlieren. Für umfangreiche Programme kann das unangenehm sein! Schauen 
Sie im Handbuch Ihres Computers nach, wie man ein Programm durch Über- 
spielen auf einen Cassettenrecorder „rettet“! (Das lohnt sich aber erst später!). 
® NEW löscht das eingegebene Programm. NEW heißt „NEU“. 
Hier haben Sie zwei wichtige Erfahrungen gemacht: 
© Die nachträglich eingegebenen Zeilen 5... und 15... werden nach RUN vom 
Computer richtig einsortiert und nach aufsteigenden Nummern abgearbeitet. Da 
nach Ihrer zweiten Eingabe der erste Befehl 5 CLS lautete, wird auch dieser 
Befehl als erster ausgeführt. Hier führt das zum Löschen des Bildschirmes. 
CLS = „Clear Screen“ kennen Sie schon. Das versteht nur der CPC 464; auch — 
wie hier — innerhalb eines Programms. 
Beim C-64 haben Sie zum „Tafel-auswischen“ auf Seite 28 benutzt: 
CLR 
Soll der Schirm im Laufe der Abarbeitung eines Programms gelöscht werden, 
heißt es (hier): 
5 PRINT CHR$(147) 
© Sie erkennen, wie sinnvoll es ist, für die Zeilennummern größere Schritte zu 
wählen. Nur so ist das nachträgliche Einfügen von Befehlszeilen erst möglich! 
® LIST heißt „LISTe auf..., Schreibe nieder...“ — nämlich das gespeicherte Pro- 


gramm. Zu diesem Befehl gibt es ein paar nützliche Varianten, die Sie jetzt 
einmal probieren sollten. 


Befehl .......... bewirkt .......... 
LIST - 30 Auflisten aller Zeilen von 6 bis 30 
LIST 36 Auflisten der Zeile 30 
LIST 16 - 30 Auflisten der Zeilen 10 bis 36 
LIST 16 — Auflisten des Programms ab Zeile 10 bis 
zum Ende des jeweiligen Programms 
Übrigens: für — (hier mit der Bedeutung „bis“) verwenden Sie die Taste BE 
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14 Endlich! Wir schreiben unser erstes Programm! 
14.1 Wie schreiben Sie ein Basic-Programm? 


Das wüßte ich auch gern! 

Scherz beiseite. Ich meine mit dieser Überschrift nicht, wie Sie ein Programm 
schreiben, damit es funktioniert. Sondern wie Sie es schreiben, damit man es gut 
lesen kann; Sie, Ihr Freund und Ihr Computer. 

Am Ende meiner folgenden Beispiele werden Sie wissen, was ich meine. 
Betrachen Sie die Stilblüten bloß, kümmern Sie sich nicht darum, was Ihr 
Computer damit anstellen würde. 

Kommen wir zur Blüte 1: 


10 FOR X = 1 TO 10 
20 FRINT KıX/Zar 
30 NEXT X 

40 IF X>100 THEN 100 

SO END 

100 FRINT "X IST > 1000" 


® Alles ist in Großbuchstaben geschrieben. 

® Zwischen den einzelnen Basic-Worten wie FOR...,...TO...,PRINT... usw. ist 
jeweils ein Zwischenraum (ein Blank) gesetzt, erzeugt durch Druck auf die 
große Leertaste. 

© Zur Beherzigung: 
So - und nicht anders - sollten künftig auch Ihre Programme aussehen! 


Begründung: 


®@ Es ist leicht und flüssig zu lesen. Das ist nicht nur für Sie wichtig. Sondern 
auch für Ihren Freund, dem Sie vielleicht mal ein „Listing“ Ihrer Programme 
verehren. 

® Diese Schreibweise wird ausnahmslos von jedem Computer (der Basic spricht) 
verstanden. 


Sehen Sie sich die nächste Stilprobe an: 


10 FORK=1TOLG 

20 FRINTXA: X/2: K#S 

0 NEXTA 

40 IFXS>10OTHENI1OO 

SO END 

100 FRINT"X IST >1000" 
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14 Endlich! Wir schreiben unser erstes Programm! 


Hier ist dasselbe Programm geschrieben; allerdings ohne die Blanks zwischen den 
Basic-Worten. Es heißt z. B. FORX statt: FOR X. 


© Der C-64 schluckt das, der CPC 464 nicht. Womit bewiesen ist, daß diese 
Schreibe nicht von jedem Computer verstanden wird. 
Wir wollen aber in diesem Buch Programme schreiben, die von jedem Compu- 
ter „gelesen“ werden können! 
Für die C-64er: Sollte Sie die Computerbegeisterung so packen, daß Sie sich 
mal einen „richtigen“ Computer kaufen (z. B. den IBM-PC), dann müßten Sie 
umlernen. Denn der mag das Aneinandergeklatsche auch nicht. 
Vereinfacht: Gerade die „gehobenen“ Basic-Versionen halten auf Ordnung 
bzw. auf Trennung von Basic-Worten durch Blanks. „Mach’s gleich richtig!“ 
lautet mein Rat. 


Im nächsten Beispiel habe ich etwas zusammengebastelt. 


10 For X=1 To 10 
oO Frint KHX/ZaXrd 
20 Next X 


40 If X>100 Then 100 
50 End 
100 Frint"X ist>1000" 


© So etwas kann man z. B. mit dem CPC 464 machen. Aber der verwandelt Print 
automatisch wieder in PRINT. Und was soll die viele „Shifterei‘? Das ist nur 
unnütze Arbeit. Also: nicht empfehlenswert. 


undnunzeigeichihnendiespaßvogelmethode. 


Haben Sie’s? 


6028 
59038 
6948 
69598 
60698 
€e978 
6088 
69938 
6188 
61198 
61208 


POKe198,8:wait198,2:print"FEEN" :poKe 198,08 
input"Filename";fis:iprinrt "za" 
openi,1,8,fi$ 

input#i,nr 

forsb=B8to3:forsa=1tol6 
get#1,a$:ifas$<C>chr$(C13)thenfS$(sa,sb)=t$(sa,sb) 
next:inext 

forsb=Bto3:forsa=1tol6 
input#1,t12%(sa,sb)> 

next:inext 

forsa=iItonr 
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14 Endlich! Wir schreiben unser erstes Programm! 


© Hier ist alles in kleinen Buchstaben ohne jeden Zwischenraum geschrieben. 
Wenn Sie davon eine Druckseite in Ihren Computer übertragen haben — etwa 
aus einem Programmierbuch — dann sind Sie dem Wahnsinn nahe. Und 
müssen sich auf eine mühsame Suche nach Übertragungsfehlern machen. 
Der C-64 läßt sich so etwas tatsächlich gefallen. Wir aber nicht! 


Die letzte Stilblüte zeigt einen Ausschnitt aus der Arbeit eines „Programmie- 
rers“, der seinen Basic-Text mit Graphikzeichen geschmückt hat. 


28608 POKES3288,5:POKES3281,5 


2870 PRINT" SCREEN ———!" 
2838 PRINT" I GERREUSCHEGENERATOR | 

2898 PRINT" Br NEE ESSERRETGERNEEHTERE 

29808 PRINT" mm BITTE 15 SEC. WARTEN" 


2918 PRINTCHR$(8) 

29320 DIM T8$(18,30> 

2938 DIM N$(C10) 

2948 DIM L(1,25) 

2350 DIM P(28,2) 

2968 DIM 010,2) 

2970 Z$ =" SOSDDKDEDTeDrDKIKDEDSDKDEDSTSDADEDSTETETKDRUEDN 

2388 S$=")BBBDPBBBREDBBBDERDBRBBBDRDDEBBRBRBRRBBRRI" 
2338 C$=" N GQ0EB 00 08 Id GB 08 BRBacBe Q aaae" 
3008 I$="808 1808 | 180096 I IINI I IEIN I 198" 


® Auch das hat ein C-64 offenbar klaglos über sich ergehen lassen. Ich komme 
soeben von meinem C-64 zurück an die Schreibmaschine. Ich krieg’ das gar 
nicht hin. Wie hat der das bloß gemacht? 
Da wir grad beim C-64 sind: mit dem kann man auch Basic-Befehle „abkür- 
zen“. Statt des international geläufigen Basic-Wortes READ (um nur ein 


Beispiel zu bringen), müssen Sie das „abkürzen“ zuR| SHIFT JE; auf dem 


Bildschirm leuchtet dann RB 
Lernen Sie lieber was Gescheiteres als solche „Abkürzungen“! 


Nun bin ich ganz sicher, daß die Leute, die solche Programme schreiben, sich 
etwas dabei gedacht haben. (Ich weiß allerdings nicht, WAS!). Aus der Literatur 
ist mir ein möglicher Grund für das „Schreiben ohne Blanks“ eingefallen. Da der 
Computer natürlich auch ein Blank als Zeichen ansieht und dieses abspeichern 
muß, hat man zu Zeiten, als die Computer das Laufen lernten und 4 KByte 
Arbeitsspeicher schon als üppig galten, zur Speicherplatzeinsparung empfohlen, 
auf Blanks zu verzichten. Solche Sorgen plagen uns heute gottlob nicht mehr! 

Also: wissen Sie jetzt, wie Sie Ihre Programme schreiben sollten und warum? 

Noch ein Wort in „eigener Sache“: 
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14 Endlich! Wir schreiben unser erstes Programm! 


Der CPC 464 kann auf Wunsch 26, 40 oder 80 Zeichen auf einer Zeile unterbrin- 
gen. Der C-64 „kann“ nur 40 Zeichen, andere Geräte wieder nur 64 usw. Ich habe 
mich bemüht, Programme, Tabellen usw. so zu schreiben, daß sie sauber auf 
einen Schirm mit 40 Z/Z (Abkürzung für Zeichen pro Zeile!) passen. Sehen Sie 
mir nach, wenn mal ein Satz „überhängt“; Sie fummeln das sicher leicht auf das 
Zeilenformat Ihrer Maschine hin! 
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15 Sie treffen Vereinbarungen mit Ihrem Computer 


Erinnern Sie sich noch an Ihre Schulzeit, an die Anfangsgründe der Mathematik? 
Dort war bei verschiedenen Aufgabentypen „X“ die große Unbekannte, deren 
Wert es zu ermitteln galt. 

Lautet die Aufgabe etwa: X+1=100, dann ist X=100-1, also 99. Heißt es aber 
X-2=80, dann ist X=80+2, also 82. „X“ nennt man hier eine VARIABLE. 
Ähnliche Spiele können Sie auch mit Ihrem Computer machen! 


Auf Seite 46 hatten Sie bei der Kreisberechnung den Radius mit 25 eingegeben. 
Wählen Sie in der folgenden Aufgabe den Durchmesser zu 25! 
10 LETD = 25 


Weiter: Sie wissen, daß der Radius eines Kreises D/2 ist. Also: 


Und Sie wissen, daß die Fläche eines Kreises R? * n ist. Somit sagen Sie Ihrem 
Computer: 


30LETF=R[_t )| _)2*3.1216 


Diese Ihre „ZUWEISUNGEN“ merkt sich nun der Computer. Prüfen Sie ihn! 


10 LETD = 25 
26 LETR = D/2 


30 LETF=Rf 2*3.1416 
46 PRINTD,R,F 


490.875 
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10 SEITE1 
20 SEITE2 


LETD= D= 


LET ist ein Zuweisungsbefehl, mit dessen Hilfe Sie Vereinbarungen mit Ihrem 
Computer treffen können. LET A = 1 könnte man so übersetzen: „A sei 1“ oder 
„Lasse A = 1 sein“. 

Damit Sie selbst den Überblick behalten, ist es sinnvoll, Variablen-Namen zu 
wählen, die einen Zusammenhang mit der Größe haben, die Sie dahinter 
verbergen wollen. Nicht von ungefähr habe ich in dem Beispiel R gewählt für 
Radius, D für Durchmesser und F für Fläche. 


Bei der Tolerierung von Namen, die Sie Ihren Variablen mit auf den Weg 
geben, verhalten sich die einzelnen Computertypen — bzw. ihre Basic-Versio- 
nen — recht unterschiedlich. Wenn Sie das folgende Experiment machen, 
werden Sie das nie wieder vergessen. Und hoffentlich immer beherzigen. 
Geben Sie ein: 


10 Seitel1 = 10 

20 Seite2 = 206 

360 FLAECHE = SEITE1 * SEITE2 

40 PRINT”DIE FLAECHE IST :”;FLAECHE 


Daß hier die FLAECHE zu 266 berechnet werden muß, haben Sie längst im 
Kopf ausgerechnet. Und der CPC 464 gibt Ihnen auch brav aus: 

DIE FLAECHE IST 206 

Der C-64 aber beharrt eigensinnig auf: 

DIE FLAECHE IST 466 


Des Rätsels Lösung: In den einzelnen Basic-Versionen dürfen Variablennamen 
aus unterschiedlich vielen Zeichen bestehen. 

Während sie beim CPC 464 bis zu 46 (!) Zeichen lang sein dürfen, besteht der 
C-64 auf „nicht mehr als zwei!“ 

Häßlich ist nur, daß der C-64 den Variablennamen SEITE1 zwar aktzeptiert 
hat. Aber für ihn sind nur die ersten beiden Zeichen eines Variablennamens 
„signifikant“, d. h., er unterscheidet Variablennamen voneinander nur in den 
ersten beiden Zeichen. Sind die gleich, dann handelt es sich für ihn um die 
gleiche Variable. 

Unser Genie hat die Testaufgabe wie folgt bewältigt: 


10 : Aha, SE ist also 10! 
20 : Nanu, haben Sie Ihre Meinung geändert? 
Aber einverstanden. SE ist (jetzt) 20. 


30 FLAECHE = SEITE1 & SEITE2 : Kein Problem! 


FL=SExSE 
FL = 20 x 20 
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15 Sie treffen Vereinbarungen mit Ihrem Computer 


Sehen Sie, und so kommt er zu der Aussage 460! 
Fassen wir zusammen: 


® Variablennamen müssen in einem Zug geschrieben werden; das erste Zeichen 
muß ein Buchstabe sein. 
RICHTIG wäre demnach für alle Computer: AA, A9, Z7 
FALSCH wäre demnach für alle Computer: 9A, A 9,2 7 


© Beim CPC 464 darf der in einem Zug geschriebene, mit einem Buchstaben 
beginnende Variablenname bis zu 46 Zeichen haben; beim C-64 dürfen es nur 
zwei sein. Falls Sie eine andere Maschine haben, schauen Sie unverzüglich in 
dessen Handbuch nach, und vergewissern Sie sich, wie’s bei dem ist! 


@© ACHTUNG! Niemals in einem Programm einer Variablen verschiedene Werte 
zuordnen! (Beispiel: A = 5, später dann A = 15). 
Der Computer ahndet solche Disziplinlosigkeit damit, daß er (5) vergißt und 
die letzte Eingabe (15) als verbindlich ansieht! 


® Für den Rest des Buches werden wir unsere Variablennamen auswählen aus: 


ABC. a a a a ee ee nee YZ 
AD AT A ET ee ee Dre 6er A9 
BO,BE: 3. u: A nenne B9 
20,21. Base oe ae ee ee Z9 
AA,AB,AG, ns ar 2 a a ae en AY,AZ 
ZA,ZB,ZG 2 5.004 sw ea enter ZY,ZZ 


Das sind doch eine Menge Möglichkeiten! 


© Fast alle Computer erlauben folgende Abkürzung: 
Statt LET A9 = 27 einfach eingeben A9 = 27. 
Probieren Sie, ob das IHR Computer auch toleriert. Ich werde künftig die 
vereinfachte Schreibweise A = ... wählen! 


Weiter im Text! 

Lassen Sie das vorige Programm noch stehen! 

Außer Zahlenwerten und Ausdrücken (wie R = D/2) können Sie den Variablen 
beliebige Zeichenketten zuweisen. EGON ist beispielsweise eine Zeichenkette — 
eine Kette von 4 Zeichen. Wenn Sie eine Zeichenkette einen STRING nennen, 
gelten Sie schon was in Programmiererkreisen!... 
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D$ END 


Allerdings müssen Sie den Computer durch ein besonderes Zeichen vorwar- 
nen, daß statt eines Zahlenwertes ein String zugewiesen wird. 


® Mit A = 1 weisen Sie der Variablen A den Wert 1 zu... 
® Mit A$ = „EGON“ weisen Sie der Variablen A$ den Wert EGON zu! 


Tippen Sie mal ein: 
5 CLS*) 


ENTER 


8 D$ = "DURCHM.-” 


ENTER 


25 R$ = "RADIUS” 


ENTER 
35 F$ = "FLAECHE” 


ENTER 


38 PRINT D$, R$, F$ 


ENTER 


50 END 


ENTER 


Be) 


UN 


ENTER 


e 
B 
A 
[er 
je} 
un 
53] 
ar} 
Q 
® 
oO 
= 
un 
7 
-— 


*) Wissen Sie’s noch: Für den C-64 heißt es: 5 PRINT CHR$(147) 
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15 Sie treffen Vereinbarungen mit Ihrem Computer 


DURCHM.- RADIUS FLAECHE 
25 12.5 490.875 
READY 

u 


Schauen Sie sich doch das Programm noch einmal an! Wie? Mit LIST! 


© Ein Dollar-Zeichen ($) an eine Variable angehängt, macht den Computer darauf 
aufmerksam, daß Sie der Variablen einen String zuordnen wollen. 

© Wie Sie das gelernt haben, „verstecken“ Sie den String in ”.....“. 

© Sie können allen Variablen der vorigen Liste ein Dollar-Zeichen anhängen. Also 
von A$ (gesprochen A-Dollar) bis ZZ$ (gesprochen ZZ-Dollar). 

® Wie viele Zeichen (+/? Blanks usw. sind AUCH ZEICHEN!!) Sie in einem 
String unterbringen können, ist bei den einzelnen Computern verschieden. Bei 
manchen ist die Zahl der Zeichen zwischen ”.....” begrenzt; z. B. auf 18 
Zeichen. Andere Computer sind großzügiger. Der CPC 464 z.B. faßt 256 
Zeichen. Probieren Sie das wie folgt aus: 


NEW 


Der Computer druckt nur soviele Zeichen aus, wie er in einem String toleriert. 
Den Rest läßt er unter den Tisch fallen. Wieviele Zeichen sind das bei Ihnen? 
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D$ END 


© END: Hier haben Sie in Zeile 50 einen Befehl verwendet, der dem Computer sagt 
END(e; nicht der Fahnenstange, aber des Programms!) 
Der Computer stoppt, sobald er diesen Befehl vorfindet; auch dann, wenn etwa 
in Zeile 66 usw. weitere Befehle stehen sollten. 

© Das können Sie sich ruhig angewöhnen: Ihr Programm mit END abschließen! 
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16 Sie bringen Ihren Computer auf Trab 


Eines hat uns der Computer bis jetzt eigentlich noch nicht vorgeführt. Seine 
affenartige Geschwindigkeit. Und er hat noch nicht bewiesen, daß er uns viel 


Arbeit abnehmen kann. 


Immerhin haben Sie bei der Eingabe mehr geschwitzt als er bei der Ausgabe! 
Wir wollen den Computer jetzt auf Trab bringen! Geben Sie ein: 


Z 


EW 
ENTER 
5 CLS 
ENTER 


16 PRINT ”"RADIUS”, 
"DURCHM.-”, ”FLAECHE” 


ENTER 
20 FORR = 1 TO 16 
ENTER 


38D=2*R 
ENTER 

40F=R[t )[_)2* 3.1416 
ENTER 

50 PRINTR,D,F 
ENTER 


[en] 
S 
AH i i 
1 
» 
4 
Pe) 


ENTER 
70 END 


Und wenn Sie jetzt RUN | ENTER eingeben, werden Sie verblüfft sein! 


1 
2 
3 
4 
5 
6 
7 
8 
9 


„m 
SS 


DURCHM.- 


2 


FLAECHE 
3.1416 
12.5664 
28.2744 
50.2656 
78.54 
113.089 
153.938 
201.062 
254.47 
314.16 


Da staunen Sie? Lassen Sie das Programm stehen und studieren Sie den weiteren 


Text! 
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FOR...NEXT 


NEU an diesem Programm sind für Sie die Zeilen 26 und 66. Diese beiden 
Zeilen gehören zusammen; sie bilden eine FOR...NEXT-Schleife. 
Damit bringen Sie dem Computer bei, eine Aufgabe mehrmals mit verschiedenen 
Werten für die gleiche Variable auszurechnen. 


Lassen Sie mich eine Übersetzung versuchen: 


— FOR R = 1 TO 16 
RER ER ET 
für die VariableR von1 bis 10 


Die Zeilen 36,40 sind Zuweisungen, dann aber 
PRINTR,D,F 
Das tut der Computer zunächst für die Variable R = 1; das Ergebnis sehen 
Sie auf der ersten Zeile des Bildschirms. Dann kommt: 


ONEXT R] 


Das veranlaßt ihn, zu Zeile 20 zurückzugehen und das Spiel mit R=2 zu 
wiederholen. NEXTR zwingt ihn wieder zurück zu Zeile 26, um mit R=3 
fortzufahren. Dieses Spiel treibt er so lange, bis R = 10 erreicht ist. Dies erlaubt 
ihm, zu Zeile 76 zu gehen und sich — weil dort END steht - zur Ruhe zu begeben. 
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16 Sie bringen Ihren Computer auf Trab 


Die FOR...NEXT...-Schleife sollten Sie ruhig ein wenig üben! Vorausgesetzt, Sie 
sind meiner Empfehlung gefolgt und haben das Programm stehengelassen... 
wenn nicht: noch einmal eingeben; Strafe muß sein!) 

Dann ersetzen Sie jetzt einmal Zeile 26 durch: 


20 FOR R = 10 TO 26 


Erlauben Sie mir, auf den Abdruck des Ergebnisses zu verzichten? Fahren Sie fort: 
20 FORR = 1 TO 2 STEP .1 


m 


20 FOR R = 1 TO 1006 


Drücken Sie: Beim CPC 464 ESC 2) 


A RUN 


Was es dazu zu sagen gibt, lesen Sie rechts! Aber das Programm stehenlassen! 


*) Siehe ®, Seite 258 


[o>} 
NS 


| RUN 


© Sie können die Variable beliebig mit Werten belegen lassen; 
z.B. ....1 TO 16,...6 TO 23..., 166 TO 115 usw. 


® Hier lernen Sie eine Variante kennen. 
FORR = 1 TO 2STEP 1 
heißt : „...für R von 1 bis 2 in Schritten von ®.1..“. 
STEP heißt zu deutsch „SCHRITT“. 
Sie können beliebige STEPs vorgeben. Geben Sie — wie in dem Beispiel zuvor — 
NICHTS an, dann wählt der Computer automatisch die Schrittweite 1. 


® Naja — man sollte halt nicht so gierig sein! 


RUN 
Mit ESC bzw. |_STOP_) können Sie den Programmablauf „einfrieren“. 


Wollen Sie das Programm fortsetzen, dann drücken Sie beim CPC 464 auf eine 
beliebige Taste. 


Beim C-64 tippen Sie CONT, gefolgt von | RETURN 
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16 Sie bringen Ihren Computer auf Trab 


Immer noch: weiter im Text! 


Löschen Sie die Zeilen 30 und 46. Wie? Ganz einfach: 


30 


40 


Geben Sie ein: 
6D = 2*R 


7F=R_t )[_) 2*3.1416 


26 FORR = 1 TO 16 


RUN 


Was ist jetzt passiert? Der Bildschirm zeigt: 


ssosososeossoac 


1 
2 
3 
4 
b) 
6 
7 
8 
9 
1 
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FLAECHE 


sososossososaoscao 


16 Sie bringen Ihren Computer auf Trab 


© Zeilen-Nummer, gefolgt von| ENTER |, löscht die betreffende Zeile aus dem 


Programm. 

Wollen Sie eine Zeile nicht ersatzlos streichen, sondern ihr nur einen neuen 
Inhalt geben — der Fachmann nennt diesen Vorgang „Überschreiben“ — dann 
geben Sie ein: Zeilen-Nummer - neuer Zeilen-Inhalt — 


© Hier lernen Sie die unerbittliche Logik des Computers kennen. Er tut bekannt- 
lich gar nichts — es sei denn, Sie, sein Programmierer, geben ihm durch klare 
Anweisungen Gelegenheit zu sinnvollem Tun. 


Das alte Programm lautete: Sie haben das verändert zu: 
I... SR 

——2Ö FOR R... 6...(Zuweisung) 
30...(Zuweisung) 7...(Zuweisung) 
40..(Zuweisung) —>20 FOR R... 
50 PRINT... 56 PRINT... 

——66 NEXT... —60 NEXT... 


In beiden Programmen beginnt der Computer in Zeile 5 mit CLS. 

— geht dann in Zeile 20 und „holt“R=1 - erfährt in 6, 7 etwas über D und F, 
kann damit aber jetzt nichts anfangen 

- erfährt in 30, daß D=2*R ist — geht in 20 und holt R=1 

- erfährt in 46, daß F=R ? 2*3.1416 ist - kann in 50 nur R hinschreiben, weil 
er nicht weiß, was er (sonst noch) 
damit machen soll 


- führt in 50 den „Rechenbefehl“ aus - Sie schicken ihn mutwillig wieder zu 
26 

— geht über NEXT... zurück zu 20 - dort holt er R=2 

— erfährt...usw. — kann wieder nichts damit anfangen 
usw. 


Blicken Sie ernst auf die obigen Hinweispfeile — und tun Sie es nie wieder! 
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16 Sie bringen Ihren Computer auf Trab 


Leider müssen wir noch einen Augenblick bei der FOR...NEXT...-Schleife 
bleiben, um eine weitere Fußangel vermeiden zu lernen. 

Die FOR...NEXT...-Schleife wird gern dazu benutzt, Tabellen zu zeigen (oder zu 
drucken). Zu jeder Tabelle gehört bekanntlich ein Tabellen-Kopf, der dem Ganzen 
nicht nur ein schmuckes Aussehen geben soll, sondern auch deutlich macht, was 
darunter folgt. 

Versuchen Sie doch einmal folgendes Mini-Programm: 


5 CLS 


18 FORX=1TO5 


26 PRINT ”X ="",X*2 =" 


30 PRINTX,X*2 


40 NEXT X 


» 


” 


» 


» 


>» 


n 
2 
3 
n 
5 
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16 Sie bringen Ihren Computer auf Trab 


Platz- und Stromverschwendung - so könnte man diese reife Leistung nennen. 
Auch hier ist eine ungeschickte, nicht computergerechte Reihenfolge der 
Befehle gewählt worden. 
Sie können ein zufriedenstellendes Ergebnis Ihrer Tabelle erhalten, wenn Sie 
Ihr Programm wie folgt abändern: 


16 PRINT ”X =","X * 2=” 


20 FORX=1TO5 


Alles andere bleibt, wie gehabt! 
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16 Sie bringen Ihren Computer auf Trab 


Und immer noch die FOR... NEXT...-Schleife! 

Wenn Sie das folgende Programm eintippen, erkennen Sie auf dem Bildschirm, 
was passiert, wenn Sie in einem Programm zwei FOR...NEXT...-Schleifen anord- 
nen. Um deutlich zu machen, wie das arbeitet, sind auf dem Bildschirm die 
Variablen A und B mit ausgegeben. 

NEW 


18 FORA=1TO5 


A=1 
A=1 
A=1 
A=2 
A=2 
A=2 
A=3 
A=3 
A=3 
A=4 
A=4 
A=4 
A=5 
A=5 
A=5 


en 
OD ODNDHPRODNDHPRODHRUODNDH 


N 


0 


16 Sie bringen Ihren Computer auf Trab 


© Sie erkennen, daß die „B-Schleife“ in der „A-Schleife“ eingebaut ist. 


u nl 
[| I 
USW. 


© Es können auch mehr als zwei FOR...-NEXT...-Schleifen in einem Programm 
eingebaut sein. Die korrekte Programmieranweisung lautet: 


FOR A... FOR A... 
FOR B... FOR B 
FOR C FOR C 
aneäseedsne DAS IST VERBOTEN !! ........... 
NEXT C ®” NEXTA 
NEXT B NEXT B 
NEXT A NEXT C 


® Betrachten Sie die Zeile 30! Dort stehen zwischen den beiden Ausdrücken 


3 Kommas! 
— „Komma“ bedeutet bekanntlich: „Weiterrücken zur nächsten Spalte“ 
— Folgt darauf ein weiteres Komma, wird nochmals zur nächsten Spalte weiter- 


gerückt usw. 
— Ergebnis: Der „Ausdruck“ erfolgt jetzt in der ersten und vierten Spalte! 
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17 Nun stellt der Computer die Fragen 

Sie lernen jetzt einen überaus nützlichen Befehl kennen - den Befehl INPUT. 
Dieser Befehl erlaubt es Ihnen, mit Ihrem Computer in ein Gespräch - in einen 
Dialog — zu kommen. Fangen Sie einmal an: 


16 INPUT A 
RUN 


| 


Hier kommt es auf das FRAGEZEICHEN AN! 
Der Computer wartet auf Ihre Eingabe (hier: für A) und gibt das durch ein 
Fragezeichen zu erkennen. Fahren Sie fort: 


16 INPUT”GEBEN SIE EINE BELIEBIGE ZAHL EIN !”;A 


26 INPUT”’GEBEN SIE EINE WEITERE ZAHL EIN !”;B 


36 PRINT”DAS PRODUKT DER ZAHLEN IST :”;A*B 


40 PRINT”DIE SUMME DER ZAHLEN IST :”;A+B 


Der Computer wird beginnen mit: 
GEBEN SIE EINE BELIEBIGE ZAHL EIN !? 
Der Computer wartet jetzt auf Sie! 


N 


2 


INPUT 


Tippen Sie: 


3 


Sehen Sie, wie es geht? Tippen Sie ein: 


4 


Und das müßte das Ergebnis sein! 


GEBEN SIE EINE BELIEBIGE ZAHL EIN !? 3 
GEBEN SIE EINE WEITERE ZAHL EIN !? 4 
DAS PRODUKT DER ZAHLEN IST : 12 

DIE SUMME DER ZAHLEN IST : 7 


Fassen wir zusammen: 
® INPUT... 
veranlaßt den Computer, auf Ihre Eingabe zu warten. Solange diese nicht erfolgt 


ist - und anschließend | ENTER |gedrückt wurde - setzt der Computer mit 


der Abarbeitung des Programms aus. 
© Wie aus den Zeilen 10, 20, 30 und 40 hervorgeht, haben die Befehle PRINT und 
INPUT eines gemeinsam: 
— Beide Befehle können einen in ”....... ” gesetzten Text ausdrucken. 
® Mit INPUT können Sie wie folgt hantieren: 
16 PRINT”GEBEN SIE...” ODER 16 INPUT’”’GEBEN SIE....... "A 
26 INPUT A 20 ....... 


Beachten Sie die Unterschiede des Programms! Die Wirkung auf die Ausfüh- 
rung ist bei beiden Varianten gleich! 
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18 Sie zeigen Ihrem Computer, wo’s lang geht 


Das letzte Programm war hoffentlich so niedlich, daß Sie es mehrmals spielen 
möchten. Lästig ist nur, daß Sie jedesmal mit RUN neu starten 
müssen. 

Ergänzen Sie Ihr Programm um die Zeile: 


50 GO TO 106 


RUN 


Merken Sie, wie das geht? 

Leider spielt der Computer jetzt dieses Spiel bis zum Erbrechen, und Sie sehen — 
noch - keine Möglichkeit, ihn davon abzubringen. 

Drücken Sie mal auf die Taste: 


RUN * 
ESC bzw. STOP ) 


Damit bringen Sie ihn offensichtlich zur Vernunft! 

Bei der Spielerei eben mag es Sie gestört haben, daß jedesmal mit der Antwort 
schon die neue, erste Frage auf dem Bildschirm erscheint. 

Geben Sie ein: 


44 FOR X = 1 TO 1060 


46 NEXT X 
RUN 
*) Siehe ®), Seite 258 
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00.0 (mm) ] 


GO...TO... veranlaßt den Computer, auf die angegebene Zeile zu springen - statt, 
wie gewohnt — das Programm zeilenweise abzuarbeiten. 

Als Ziel für den Sprung können Sie eine Zeile angeben, die schon erledigt 
wurde. So hatten Sie im Beispiel in Zeile 50 befohlen, zu Zeile 16 zurückzu- 
kehren. 

Wenn das Programm es erfordert, können Sie den Computer aber auch auf eine 
beliebige Zeile nach vorn — etwa von Zeile 50 auf Zeile 110 — springen lassen. 


RUN 
Mit ESC bzw. | STOP |unterbrechen Sie die Programm-Ausführung. 


Die meisten Computer sagen Ihnen dabei durch BREAK IN..., wo sie das 
Programm abgebrochen haben.*) 

Wollen Sie das Programm fortsetzen, dann drücken Sie beim CPC 464 eine 
beliebige Taste. Beim C-64 tippen Sie CONT (für CONtinue; "Fahre fort!”), 


gefolgt von | RETURN 


Die FOR...NEXT...-Schleife haben Sie ja schon kennengelernt. Hier führen Sie 
mit den Zeilen 44 und 46 Ihren Computer buchstäblich an der Nase herum. Sie 
veranlassen ihn nämlich, 1006mal nach X zu suchen. (Es ist aber gar kein X da, 
hihi!). Bis der Computer das gemerkt hat - und in Ihrem Programm in Zeile 56 
fortfährt — vergeht eine Weile. 


Und auf diese Weile kommt es hier an! Mit diesem Zweizeiler können Sie den 
Ablauf des Programms an von Ihnen gewählten Stellen beliebig verlangsamen. 
Was heißt hier „beliebig“? 

Was „beliebig“ heißt, erkennen Sie, wenn Sie in Zeile 44 einmal 1000 durch 166 
oder 566 oder 10606 ersetzen! 

Keine Erklärungen mehr nötig? Dann weiter!! 


*) Für unsere Testkandidaten: der CPC 464 schweigt, der C-64 ”sagt” BREAK IN... 
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19 Sie stellen dem Computer Bedingungen 


Den nächsten Befehl stelle ich Ihnen an einem Beispiel vor, mit dem Sie künftig 
Ihre wertvollen Programme gegen die Benutzung durch Unbefugte sperren 
können. 

Schießen Sie los! 


EW 40 PRINT”FALSCHES KENNWORT” 
ENTER ENTER 


5 CLS 560 PRINT”MIT IHNEN 
ENTER ARBEITE ICH NICHT!” 


Z 


16 PRINT”BITTE Zap 

KENNWORT EINGEBEN!” 60 END 
ENTER ENTER |} 

26 INPUT A$ 100 PRINT”’ICH STEHE 
ENTER ZU DIENSTEN, BOSS!” 


36 IF A$ = "BASIC” THEN 166 ENTER 
ENTER 116 END 
ENTER 


Pe) 


UN 
ENTER 


Sie haben nun zwei Möglichkeiten: 

© Geben Sie auf die Aufforderung des Computers in Zeile 10 das hier von mir 
gewählte Schlüsselwort BASIC ein, dann wird der Computer antworten: ICH 
STEHE ZU DIENSTEN, BOSS! 

® Geben Sie irgend etwas anderes — z.B. MEIER - ein, dann antwortet der 
Computer: 
FALSCHES KENNWORT 
MIT IHNEN ARBEITE ICH NICHT. 


Ist das nicht hübsch? 


N 


6 


IF... THEN 


® Hier kommt es auf die Zeile 30 an: IF... THEN...steht dort; zu deutsch heißt das: 
WENN...DANN... 
30 IF A$="BASIC” THEN 100 
Das ist bereits Kurzschrift. In Langschrift heißt das: 
IF A$="BASIC” THEN GO TO 106 
Und zu deutsch: WENN (IF!) A$="BASIC”,dann (THEN!) gehe zu Zeile 100 
© Hier trifft der Computer also eine Entscheidung - die Sie ihm natürlich vorge- 
ben müssen! 
® Angenommen... 
..Sie weisen in Zeile 26 der Variablen A$ den String BASIC zu... 
..dann „sieht“ der Computer in Zeile 30 A$ = BASIC und wird befehlsgemäß 
zu Zeile 160 gehen... 
..dort findet er den Befehl, ICH STEHE ZU DIENSTEN,BOSS hinzuschreiben — 
was er unverzüglich tut. 
..er geht darauf zur nächsten Zeile 116 und findet dort END — was ihn 
veranlaßt, Feierabend zu machen. 
(Statt 110 END würde dort natürlich später Ihr Superprogramm starten!) 
® Angenommen... 
..Sie haben in Zeile 26 der Variablen A$ den String MEIER (oder was anderes) 
zugewiesen... 
..dann erkennt der Computer in 30, daß MEIER nicht gleich BASIC ist... 
(Ja, wirklich, er vergleicht die beiden Strings miteinander!!) 
.. daraufhin sieht er keine Veranlassung, zu Zeile 160 zu gehen, sondern geht — 
wie er das gelernt hat - in die nächste Zeile 46. Dort steht: FALSCHES 
KENNWORT - was er hinschreibt, um zur nächsten Zeile zu gehen. Dort steht: 
MIT IHNEN ARBEITE ICH NICHT. Hat er das hingeschrieben, findet er in der 
nächsten Zeile 60 END. 


Achtung, wichtig: 


In Zeile 60 MÜSSEN Sie das Programm mit END abbrechen! Tun Sie das nicht 
(wollen Sie nicht spaßeshalber mal 66 löschen?), dann würde der auf zeilenweises 
Abarbeiten dressierte Computer nach Zeile 50 als nächste die Zeile 100 antreffen 
und den Blödsinn hinschreiben ICH STEHE ZU DIENSTEN,BOSS! 

Ich kann es Ihnen nicht oft genug sagen: Der Computer ist NICHT intelligent — 
allenfalls sind Sie es, sein Programmierer! 

Übrigens — statt eines Kenn-,‚Wortes“ hätten Sie auch eine Kenn-,Zahl“ ver- 
wenden können! Also 
„INPUT A 
IFA = 10... 
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20 Zusatzvereinbarungen 


Ich gratuliere Ihnen! 
Sie haben wirklich schon das Wichtigste über Basic erfahren. Auf was es jetzt 
ankommt, ist, das Gelesene solange einzuüben, bis es zu Können wird. 

Schon eingangs hatte ich Ihnen ja versprochen, daß Sie lernen werden, eine 
Handvoll Basic-Befehle virtuos zu beherrschen. Ich halte das für besser - und ich 
wiederhole mich gern — als mit dem D-Zug durch alles zu sausen, was Basic 
heißt... Wir werden dazu miteinander Programme erarbeiten, die Ihnen die ganze 
Vielfalt der Computerei vor Augen führen. Hoffentlich gelingt es mir, Ihre 
Phantasie anzuregen. Sie könnten dann gemeinsam erarbeitete Programme variie- 
ren und Ihre eigenen daraus machen. 

Sie werden dabei sehr rasch erkennen, daß das Hantieren mit Basic-Befehlen 
nicht der wichtigste Teil für den Umgang mit Computern ist. Daß es vielmehr 
darauf ankommt, Ihre Gedanken zu ordnen, Ihre Probleme zu analysieren und 
dem Computer alles mundgerecht aufzubereiten. Ich werde versuchen, Ihnen 
dabei Schützenhilfe zu leisten, damit sich Ihr Schreck über diese Erkenntnis nicht 
in Lustlosigkeit verwandelt. 

Selbstverständlich werden Sie noch eine Reihe von BASIC-Befehlen hinzuler- 
nen. Wir werden das bei der Behandlung der einzelnen Programme erledigen. Da 
Sie jetzt schon einen gehobenen Anfängerstatus haben, werden Sie mir gewiß 
erlauben, daß ich künftig darauf verzichte, Ihnen jeden Tastendruck vorzuschrei- 
ben und jeden Computer-„Ausdruck“ in einen Rahmen zu pressen. Zur Beloh- 
nung — und zur Entspannung — wollen wir zunächst ein Spiel spielen. Schließlich 
ist es an der Zeit, daß Sie Ihren Freunden und Verwandten als Computerfach- 
mann imponieren! 

Ich wünsche Ihnen weiterhin viel Spaß mit Basic. 
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21 Der Computer als Entertainer 


Sie werden jetzt ein Programm für ein Ratespiel schreiben! 

Beginnen Sie mit: 

5 CLS 

10 INPUT”’GEBEN SIE EINE BELIEBIGE,GANZE ZAHL ZWISCHEN 1 UND 5 
EIN..... ICH WERDE DIE ZAHL ERRATEN !”;Q 


Sicherlich sind Sie schon so weit in der Computermaterie drin, daß Sie ahnen: 
dem Computer muß man nicht nur die Fragen eingeben, sondern auch die 
Antworten! 

Auf die Aufforderung in Zeile 10 gibt es — zunächst — 5 mögliche Antworten, 
nämlich 1,2,3,4 oder 5. 

Legen Sie los: 

26 ON Q GO TO 100,200,300 ‚400,500 ‘) 

106 PRINT”DIE EINGEGEBENE ZAHL IST 1” 

206 PRINT”DIE EINGEGEBENE ZAHL IST 2” 

306 PRINT”DIE EINGEGEBENE ZAHL IST 3” 

460 PRINT”DIE EINGEGEBENE ZAHL IST 4” 

566 PRINT”DIE EINGEGEBENE ZAHL IST 5” 

Testen Sie einmal diesen Programmabschnitt! Sie werden eine merkwürdige 
Entdeckung machen: 

Beantworten Sie die Frage nach Q mit 5, so wird der Computer die richtige 
Antwort geben, nämlich: DIE EINGEGEBENE ZAHL IST 5. 

Geben Sie aber für Q die Zahl 1 ein, so wird der Computer Ihnen zu Ihrer 
Enttäuschung den ganzen Katalog von 1 bis 5 servieren. Wenn Sie nicht von selbst 
darauf kommen, warum er das tun muß - so, wie Ihr Programm nun einmal ist — 
dann lesen Sie noch einmal schnell auf Seite 77 nach! Nicht nötig? Also weiter: 
150 END 
250 END 
356 END 
450 END 
550 END 


Wenn Sie jetzt das Programm testen, wird der Computer jede eingegebene Zahl, 
die zwischen 1 und 5 liegt, mit absoluter Sicherheit richtig erraten. 


‘) Die Erklärung für diesen - noch — unbekannten Befehl finden Sie am Ende des Programms! 
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21 Der Computer als Entertainer 


Ihre soeben erreichte Zufriedenheit wird sich in Enttäuschung verwandeln, wenn 
Sie die Frage nach Q einmal mit 7 oder irgendeiner Zahl beantworten, die NICHT 
zwischen 1 und 5 liegt! Der so klug erscheinende Computer wird ins Schleudern 
geraten und falsche Antworten geben! 

Der Grund liegt darin, daß Sie sich mit Ihrer Falscheingabe nicht an die mit dem 

Computer vereinbarten Spielregeln halten. Vereinbart war (in Zeile 10): Es soll 
eine ganze Zahl eingegeben werden ( .5 z. B. ist KEINE ganze Zahl!). Außerdem 
soll die einzugebende Zahl zwischen 1 und 5 liegen — und das ist bei 7 NICHT der 
Fall!! 
IHNEN traue ich zu, daß Sie sich von nun an an die vereinbarten Regeln halten. 
Aber Sie wollen doch Ihre Freunde raten lassen! Meine Freunde jedenfalls 
würden sich einen Spaß daraus machen, einfach mal auf die Taste „A“ oder „9“ 
zu drücken! Wäre das eine Blamage! 

Es hilft alles nichts: Sie müssen den Computer dazu bringen, solchen Spaß- 
vögeln die gebührende Antwort zu geben! 

Anders ausgedrückt: 

Sie müssen eine Sperre einbauen gegen alle Eingaben, die nicht den vereinbarten 
Regeln entsprechen. Sodann müssen Sie dem Computer die Anweisung geben, 
was er zu tun hat, wenn eine Falscheingabe erfolgt. 

Fangen wir damit an: 


600 PRINT”FALSCH !! DIE EINGEGEBENE ZAHL LIEGT NICHT ZWISCHEN 1 
UND 5 ! .....BITTE NACH AUFFORDERUNG NEU EINGEBEN !” 


Und nun die erwähnte Sperre: 


% 
< 
15 IF Q<1 THEN 606 <:das geben Sie so ein: SHIFT 
> 
16 IF Q>5 THEN 6066 >:das geben Sie so ein: SHIFT 


Zur Abrundung und Vertiefung basteln Sie noch etwas an Ihrem Programm. 
Zunächst: 

6 FOR X = 1 TO 1006 

7 NEXT X 

8 CLS 

Machen Sie nach Eingabe der Zeilen 6, 7 bzw. 8 einen Probelauf, um die 
Auswirkungen Ihrer Eingaben kennenzulernen! 

Als weitere Verzierungen geben Sie ein: 

11 PRINT 

12 PRINT 

13 PRINT 


*) Siehe , Seite 258 
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21 Der Computer als Entertainer 


Nun wäre Ihr Programm eigentlich fertig. Aber es hat noch einen Schönheitsfeh- 
ler. Wenn Sie ihn selbst abstellen können, hätten Sie schon viel gelernt! Können 
Sie nicht? Meine Schuld! 

Überschreiben Sie Ihr Programm wie folgt: 


150 GO TO 6 
250 GO TO 6 
350 GO TO 6 
450 GO TO 6 
550 GO TO 6 
656 GO TO 6 


Wenn Sie nun neugierig auf Ihr erstes, größeres Programm sind, sehen Sie es sich 
in Etappen an! 


LIST -20; danach LIST 20-. Im Ganzen sieht Ihr Programm dann so aus: 


5 CLS 

6 FOR X = 1 TO 10066 

7NEXTX 

8 CLS 

16 INPUT”GEBEN SIE EINE BELIEBIGE GANZE ZAHL ZWISCHEN 1 UND 5 
EIN... 

..ICH WERDE DIE ZAHL ERRATEN !”;Q 

11 PRINT 

12 PRINT 

13 PRINT 

15 IF Q<1 THEN 606 

16 IF Q>5 THEN 606 

20 ON Q GO TO 166,206,300,400,506 

160 PRINT”DIE EINGEGEBENE ZAHL IST 1” 

156 GO TO 6 

200 PRINT”DIE EINGEGEBENE ZAHL IST 2” 

250 GO TO 6 

306 PRINT”DIE EINGEGEBENE ZAHL IST 3” 

350 GO TO 6 

406 PRINT”DIE EINGEGEBENE ZAHL IST 4” 

450 GO TO 6 

506 PRINT”DIE EINGEGEBENE ZAHL IST 5” 

550 GO TO 6 

606 PRINT”FALSCH ! ! DIE EINGEGEBENE ZAHL LIEGT NICHT ZWISCHEN 1 
UND 5... 

..BITTE NACH AUFFORDERUNG NEU EINGEBEN!” 
650 GO TO 6 
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21 Der Computer als Entertainer 


Und was haben Sie dazugelernt? 


© Zeile 26: ON Q GOTTO ... ist eine Erweiterung des GO...TO...-Befehls. 
Der Befehl bedeutet: 
ONO=.1.,2, 354,5 3 
GO TO 100,200,300,400 ‚500..... 
Wird also für Q 3 eingegeben, springt der Computer zu Zeile 366, wird 5 
eingegeben, springt er zu Zeile 500 usw. 

® Zeilen 16, 600: Ein Befehl kann auch über zwei Bildschirmzeilen gehen. Sie 
müssen nur am Ende der ersten — ohne die Taste RETURN zu drücken - 
weiterschreiben !! 


< 
© Zeile 15: < heißt zu deutsch „kleiner als“. Tasten: | SHIFT 
© Zeile 16: > heißt zu deutsch „größer als“. Tasten: | SHIFT 


Ein Beispiel: 3<5; aber 5>3! 

Und nun noch als Belohnung eine Anregung zur Abwandlung der Zeile 600. 
Schreiben Sie 660 PRINT”... beliebiges Schimpfwort...“ 

Ich habe mal geschrieben PRINT”... DU ARMLEUCHTER!” 

Sie hätten das Gesicht sehen sollen! 


21.1 Sie speichern Ihre Programme 


Dieses erste Imponierprogramm für Ihre Freunde hat nur einen Schönheitsfehler: 
Jedes Mal, wenn Sie den Computer ausschalten, ist Ihr Programm gelöscht. 

Bevor ihr nächster Besuch kommt, müssen Sie das Programm neu eintippen. 

Dabei gibt es eine ganz einfache Möglichkeit, Ihre Programme dauerhaft zu 
speichern. Sie veranlassen Ihren Computer, das Programm auf einen „nichtflüch- 
tigen Datenträger“ zu kopieren. 

Dieses in Gänsefüßchen gesetzte Mordsding ist im einfachsten Falle ein Kasset- 
tenrecorder, den der CPC 464 schon eingebaut hat. Für den C-64 gibt es einen 
speziellen Recorder - die „Datasette“ — zu kaufen. Wenn Sie Glück haben, sich ein 
kleines Kästchen namens „Interface“ besorgen und das mit den Kabeln und 
Steckern hinkriegen, können Sie aber auch den Recorder verwenden, mit dem Sie 
Ihre Rock- und Popmusik aus dem Radio aufnehmen. 

Ein weiterer „nichtflüchtiger“ Speicher ist die sogenannte „Diskettenstation“, 
bei der die Programme auf einer dünnen, magnetisierbaren Scheibe (auch 
„Floppy-Disk‘“ genannt) aufgezeichnet werden. 
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21.1 Sie speichern Ihre Programme 


Diese Apparate sind sehr viel teurer als Kassettengeräte, haben dafür u. a. den 
Vorteil, daß Abspeichern und Zurückladen sehr viel schneller gehen als bei einer 
Kassette. 

(Nun wissen Sie schon, was Sie sich zu Weihnachten wünschen sollen!) 

Ich will hier nicht im Detail darauf eingehen, wie man zur Sicherung von 
Programmen mit diesen Geräten umgeht. Bei den einzelnen Computern gibt es 
dazu — manchmal nur geringfügige — Unterschiede; außerdem ist das in den 
Handbüchern bzw. Bedienungsanleitungen hinreichend beschrieben. 

Allgemein gilt: 


© Für das Übertragen aus dem Arbeitsspeicher auf einen Datenträger wird der 
Befehl SAVE verwendet, was soviel heißt wie: „Rette...(das Programm auf 
Datenträger).“ 

© Für das Laden eines Programms vom Datenträger in den Arbeitsspeicher Ihres 
Computers gilt der Befehl LOAD. Das steht für: „Lade...(das Programm in den 
Arbeitsspeicher).“ 


Wichtig ist, daß Sie vor dem Einsatz dieser Befehle die entsprechenden Vorbe- 
reitungen treffen. 


® Vor dem „SAVEn“ sollten Sie Recorder/Diskstation eingeschaltet und eine 
leere Kassette/Diskette eingelegt haben. 

© Vor dem Laden verfahren Sie sinngemäß. Legen Sie aber die richtige Kassette/ 
Diskette ein, auf der das gewünschte Programm drauf ist! 
Bei der Kassette sollten Sie außerdem dafür sorgen, daß das Band an den 
Anfang zurückgespult ist! 
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... Und wenn Sie dieses Buch erfolgreich durchgearbeitet haben und erfolgreich 
weiterprogrammieren wollen, so empfehlen wir Ihnen: 


Basic für Aufsteiger 


Der sichere Weg zum fortgeschrittenen Basic-Programm. Von Rudolf Busch. 289 
Seiten mit 44 Abbildungen und 12 Tabellen. 

ISBN 3-7723-7282-1 

In diesem Buch lernen Sie nun diejenigen Basic-Befehle kennen, auf deren 
Behandlung im Band „Basic für Einsteiger“ aus gutem Grund verzichtet wurde. 
Die Schwerpunkte liegen in der Aufbereitung aller mathematischen Funktionen 
die Basic bietet. Es folgen jene, mit denen Strings unter allen nur denkbaren 
Gesichtspunkten bearbeitet werden können. Abgeschlossen wird der Band „Basic 
für Aufsteiger“ mit einer Fülle von Programmen aus Mathematik, Geometrie, 
Betriebswirtschaft und Datenverarbeitung. 

Fazit: Sie lernen wiederum anhand von zahlreichen Beispielen wie man mit 
diesen Befehlen umgeht und wie Sie Ihnen helfen können, Probleme zu lösen. 
Der Autor greift seine Beispiele aus dem täglichen Leben und kleidet sie in lustige 
Geschichten. Denn so lernt der Leser noch immer am besten, was er tut und 
warum er es tut. 


Franzis-Verlag, München 


22 Textaufgaben 


Haben Sie die in der Schule auch so gern/ungern gemacht? Nun - hier ist eine: 

Gegeben ist die folgende Schaltung aus drei Widerständen (Abb. 5). 

Gesucht sind: Der Ersatzwiderstand RE aus R 1 und R 2, der wirksame Gesamtwi- 
derstand RG, der Strom I und der Spannungsabfall U 1 am Wider- 
stand R3. 

Wenn Sie Elektriker sind, werden Sie die Lösung bald haben. Aber wenn Sie 

keiner sind? Oder es ist schon 20 Jahre her, daß Sie so etwas „durchgenommen“ 

haben? 

Dann ist guter Rat (zunächst) teuer. Um es gleich zu sagen: Ihren Computer 
können Sie für ein paar Minuten vergessen — der hilft Ihnen nicht weiter. Dem 
müssen Sie nämlich die Aufgabe erst computergerecht servieren, bevor er zur 
Lösung schreitet. Dieses „Servieren“ aber ist keine Frage von Basic, sondern - in 
diesem Falle - von Elektrotechnik, erstes Lehrjahr. Ich breite das deshalb hier so 
genüßlich vor Ihnen aus, weil Ihnen so etwas beim Arbeiten mit Ihrem Computer 
noch oft passieren wird. 

Wenn Sie die sachliche Materie nicht beherrschen, nutzt Ihnen auch perfektes 
Basic gar nichts. Aber es gibt einen Rat für solche Katastrophen: Vielleicht haben 
Sie einen Freund oder Arbeitskollegen, der Ihnen weiterhelfen kann? Oder Sie 
besorgen sich ein „Tabellenbuch“. Auch ein Fachbuch für den Berufskundeunter- 
richt für das betreffende Sachgebiet leistet gute Dienste. Ich habe davon für einige 
der noch folgenden Programme auch Gebrauch gemacht. 

Zugegeben - die Aufgabe an sich ist simpel. Aber sie führt Ihnen mit voller Wucht 

vor Augen, auf was es bei der „Computerei‘“ ankommt. 

Bevor ich - als Ihr „Arbeitskollege“ — Ihnen weiterhelfe, empfehle ich Ihnen die 

Lektüre der folgenden Merksätze. Sowie tiefes Nachsinnen darüber... 

Wenn es nicht so teuer wäre, hätte ich die Merksätze mit einem goldenen Rahmen 

versehen: 


Abb. 5 Ihre erste eingekleidete Aufgabe für den Com- 
puter: Berechne den Ersatzwiderstand RE aus Ri 
und R2, den Gesamt-Widerstand RG, den Strom I 
durch die Schaltung und den Spannungsabfall an R3 
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22 Textaufgaben 


SIE HABEN EIN PRO- DER COMPUTER HAT KEI- 


BLEM. NE PROBLEME. 
(nämlich die Textauf- 
gabe) 


DER COMPUTER KENNT 
IHN NICHT. 


DER COMPUTER SCHAUT 
IHNEN DABEI GELANG- 
WEILT ZU. 


SIE KENNEN DEN LÖ- 
SUNGSWEG. 


SIE SIND IN DER LAGE, 
PROBLEM UND LÖ- 
SUNGSWEG IN FÜR 
DEN COMPUTER VER- 
STÄNDLICHE BEFEHLE 
UMZUSETZEN. 


Und nun zur Lösung! 

Es empfiehlt sich bei solchen Aufgaben, Papier und Bleistift bereitzuhalten, um 
Skizzen und Zwischenrechnungen zu machen - so, wie ich das hier vor Ihnen 
tue. 

1. Schritt: Sie ermitteln den Ersatzwiderstand RE aus R1 und R2 (Abb. 6). 
Dafür gibt es die Formel: RE=(R1*R2)/(R1+R2) 


2. Schritt: Sie ermitteln den Gesamtwiderstand RG (Abb. 7). 
Der ist: RG = RE+R3 


3. Schritt: Sie errechnen den Strom I (Abb. 8). 
Das gelingt nach: I=U/RG 


4. Schritt: Sie machen sich an den Spannungsabfall U1 (Abb. 9). 


Dafür gilt: U1=I*R3; für I setzen Sie das in Schritt 3 Entwickelte ein und erhalten 
U1=(U/RG)*R3. 


R1 Re R3 
Abb. 6 Welchen Widerstand = Ey “. 
RE haben zwei parallel g- __ BEN Abb. 8 Wer kennt das Ohm- 
schaltete Widerstände zu- R2 sche Gesetz? 
sammen? mn u 


R R3 


+ 


Abb. 7 Welchen Widerstand 
haben alle drei zusammen? 
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Abb. 9 Wie hoch ist der 
Spannungsabfall hier? 


22 Textaufgaben 


Und nun können Sie sich wieder Ihrem Computer zuwenden! Sagen Sie dem 
doch erst einmal, was Sie ganz sicher wissen: 


10R1=5 
20 R2 = 10 
30 R3 = 20 
40 Ü = 12 


Und jetzt vertrauen Sie ihm die so mühsam erarbeiteten Formeln an! 
50 RE = (R1*R2)/(R1+R2) 

66 RG = RE+R3 

701= U/RG 

80 U1 = (U/RG)*R3 


Der Rest ist jetzt für Sie nur noch Routine! 


96 PRINT”DER ERSATZWIDERSTAND IST ”;RE;” OHM” 
100 PRINT”DER GESAMTWIDERSTAND IST ”;RG;” OHM” 
110 PRINT”DER STROM IST ”;I;” AMPERE” 

120 PRINT”DER SPANNUNGSABFALL IST ”;U1;” VOLT” 


jetzt noch: 
5CLS und los! 


Wenn Sie jetzt meckern, daß Sie das mit einem Taschenrechner schneller 
gemacht hätten — Kenntnis der Formeln vorausgesetzt — dann kann ich Ihnen nur 
zustimmen. Für eine Einmalaufgabe ist ein Computer sicher ein zu teures Möbel. 
Aber was ist, wenn Sie diese Aufgabe x-mal mit andören Werten rechnen müssen? 
Versöhnen Sie sich mit Ihrem Computer! Variieren Sie einmal — der Reihe nach: 
40 U = 1 danach 100, 226, 1000 usw.! 

Oder: 

46 INPUT”WIE GROSS IST DIE SPANNUNG U ”";U 

130 FOR X = 1 TO 1666 : NEXT 

146 GO TO5 


Was haben Sie dazugelernt? 


® Genau so logisch, wie Sie die Formeln entwickelt haben, sollten Sie bei der 
Programmierung zu Werke gehen! 


© Der Computer könnte Ihnen - beispielsweise - in Zeile 908 RE nicht ausrechnen, 


wenn Sie ihm nicht vorher - in Zeilen 16, 20, 56 gesagt hätten, welche Werte er 
in die Formel einsetzen soll. 
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Textaufgaben 


Oder: 


Sie könnten billigerweise nicht in Zeile 100 nach RG fragen, wenn Sie nicht 
vorher in Zeile 50 etwas über RE und in Zeilen 16, 26 etwas über die für RE 
nötigen Größen R1 und R2 gesagt hätten! 

Denken Sie deshalb immer daran, daß der Computer nach aufsteigenden Zeilen- 
Nummern arbeitet! (Es sei denn - wie Sie wissen — Sie befehlen ihm ausdrück- 
lich etwas anderes!) 

Bei dieser Gelegenheit habe ich Ihnen in Zeile 130 etwas Neues untergeschmug- 
gelt: 

Der ”:” (Doppelpunkt) trennt BASIC-Befehle voneinander. Das heißt, Sie kön- 
nen auf eine Zeile auch mehrere Befehle schreiben (wenn Sie Platz haben!) und 
wenn Sie die einzelnen Befehle mit ”:” voneinander abtrennen! 

Die Ihnen schon geläufige Warteschleife ist auf eine Kurzform gebracht, dieman 
sich leicht merken kann: 

..FOR X = 1 TO... : NEXT 

Und noch etwas ist neu für Sie: 

In dem obigen Befehl steht nur ... : NEXT 

das sonst gebrauchte ...X habe ich mir geschenkt. Sie sollten prüfen, ob Ihr 
Computer das auch kann! Wenn nicht, bleibt es bei : ...NEXT X. 


Noch eine Textaufgabe...! 

Gegeben: Sie haben einen Bleiakkumulator mit 12 V Klemmenspannung. Der 
Innenwiderstand soll .1 Ohm sein. 

Gesucht: Sie sollen die Größe eines Widerstandes R bestimmen, bei dem an der 
obigen Batterie die maximal mögliche elektrische Leistung P erzeugt wird. 
Lösungsweg: Für die Lösung gibt es einen bestimmten Zusammenhang - aber der 
ist nicht einmal jedem Elektriker auf Anhieb geläufig. 

Ein Weg zur Lösung wäre folgender: Sie kaufen sich eine Rolle Widerstandsdraht 
und probieren... 

Auf diese Weise könnten Sie sich dem richtigen Wert für R „empirisch“ nähern! 
Das müßte doch ein Fressen für schnelle und willige Computer sein! 


Hier sehen Sie zunächst einmal das Ersatzschaltbild (Abb. 10). 
Und die notwendigen Formeln lauten: 


I=U/R+RI) 


oT 
P=T*R oo 
m 
B U . Abb. 10 Welchen Wert soll R 
R1=19Q annehmen, um maximale Lei- 
U=12V stung umzusetzen? 
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Wir entschließen uns, die Lösung über eine FOR...NEXT...-Schleife zu suchen 
und teilen dem Computer in bewährter Weise erst einmal mit, was wir schon 
wissen. 


5CLS 
10 U = 12 
20R1= .1 


360 REM WIDERSTANDSOPTIMIERUNG 

46 REM GEGEBEN IST U = 12 V,R1 = .1 OHM 

560 REM GESUCHT IST DIE MAX. LEISTUNG PANR 

606 PRINT’STROM I =",”R=",”P =" 

70PRINT” === == === === === === === = = >= >55 === 


86 PRINT 

96 FORR = .05 TO .15 STEP .61 

166 1I=U/(R+RiI) 

110 P = If2*R 

126 PRINT I,R,P 

136 NEXT R 

Wenn Sie alles richtig gemacht haben und das Programm starten, erhalten Sie 
folgendes Ergebnis: 


STROM I = R= P= 

80 .65 326 

75 .06 337.5 
70.5882 .07 348.789 
66.6667 .08 355.999 
63.1579 .09 359.003 
60 .1 360 
57.1429 .11 359.184 
94.5455 .12 357.025 
52.1739 .13 353.875 
50 .14 356 

48 .15 345.6 
READY 

<— 


In der dritten Spalte P = erkennen Sie, daß der Maximalwert bei 360 liegt; der 
zugehörige Widerstand ist R= .1 Ohm. Als guter Elektriker hätten Sie sich die 
Mühe sparen können: 
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Das Leistungsmaximum wird erreicht, wenn der Lastwiderstand R gleich dem 
Innenwiderstand R 1 ist... 


Was haben Sie dazugelernt? 


® Die Zeilen 36, 40 und 50 beginnen mit REM. 
REM ist die Abkürzung von REMark - und das heißt frei übersetzt „Anmerkung“. 
Dies ist ein überaus wichtiger Befehl, erlaubt er Ihnen doch, in Ihrem Programm 
Anmerkungen zu machen oder Erklärungen unterzubringen, die es Ihnen ermög- 
lichen, Ihr Programm auch nach längerer Zeit zu verstehen! 
Durch REM wird der Computer vorgewarnt, daß jetzt etwas kommt, was für Sie — 
den Programmierer — bestimmt ist und nicht für ihn - Ihren Helfer. Was 
bedeutet, daß der Computer alles, was auf REM... folgt, ignoriert. 
Nach dieser Vorführung von REM werde ich darauf künftig verzichten. Weil ich 
Ihnen die Programme so ausführlich kommentiere, daß sich die Verwendung 
von REM wohl erübrigt. 
Aber Sie sollten bei eigenen Programmen davon ausgiebig Gebrauch machen! 
@ Falls Sie nicht ohne zu überlegen nachvollziehen können, warum ich dieses- 
mal die Formeln erst in den Zeilen 166 und 110 untergebracht habe und nicht — 
wie in der Textaufgabe davor — gleich im Anschluß an die Eingabe der 
bekannten Größen, dann sollten Sie sich noch einmal die Seiten 62...71 zu 
Gemüte führen! 
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In diesem Programm wenden wir uns zur Abwechslung einmal der Mechanik zu. 
Aus „Friedrichs Tabellenbuch“') habe ich mir notiert: 

Die Beschleunigung beim freien Fall beträgt G") = 9.81 m/s?. 

Die Endgeschwindigkeit des frei fallenden Körpers nach T Sekunden ist 
V=G*T. 

Die Fallhöhe H ist (G * T?) / 2. 

Die Fallzeit T ist V2H/G. 


Ihre Aufgabe ist es nun, die Endgeschwindigkeit V und die Fallzeit T auszurech- 
nen oder, besser — ausrechnen zu lassen — für „beliebige“ Fallhöhen H. 

Das Wort „beliebige...“ soll Ihre Aufmerksamkeit darauf lenken, daß diese 
Größe variiert werden soll. In Ihrem Computerprogramm würden Sie das am 
elegantesten über einen INPUT-Befehl erledigen. 


Es geht los: 
56 INPUT”GEBEN SIE DIE FALLHOEHE IN ’METER’ EIN !";H 
Nun geben Sie — nach altem Brauch - das ein, was Sie wissen. Das ist nicht viel — 
aber immerhin: 
60 G = 9.81 
Nun habe ich - listig! — zuerst nach der Endgeschwindigkeit V gefragt. Die Formel 
dafür laute: V=G*T 

Wenn Sie das dem Computer jetzt eingeben, kann er damit nichts anfangen. Er 
kennt nur G (aus Zeile 60); T ist für ihn noch ein böhmisches Dorf. Da wir eisern 
konsequent bleiben wollen, geben wir zunächst — computergerecht - ein: 
7T=SQR(2H/G) 
Warum? Weil Sie H über INPUT (Zeile 56) eingegeben haben und G in Zeile 66; 
der Computer kann also T ermitteln aus Größen, die Sie ihm inzwischen verraten 
haben. Und nun: 
8V=G*T 
90 PRINTT,V 
Das Ergebnis wird (z. B. auf dem C-64) sein: 
? SN ERROR IN 70 


‘) Friedrich: „Tabellenbuch für Elektrotechnik“, Ferd. Dümmler Verlag, Bonn. 
"') Die Formeln sind - abweichend von der Norm - in Großbuchstaben dargestellt. 
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Was ist denn nun kaputt? Schauen Sie sich Zeile 70 an! 76 T = SQR (2H/G) — das 
entspricht doch genau der schlauen Formel aus dem Tabellenbuch? 

Auch das Übertragen von Formeln hat offenbar seine Tücken. Computergerecht 
nämlich muß es sein! In der Formel Y2H/G lesen Sie ohne nachzudenken 2H als 
2 MAL H!! Und genau so will es der Computer serviert haben! 

Also verbessern Sie schleunigst: 

70 T = SQR (2*H/G) 

Jetzt sagt Ihnen der Computer prompt: 

‚451524 4.42945 

Damit haben Sie zwar die Aufgabe gelöst — aber das Programm entspricht sicher 
noch nicht Ihren Ansprüchen! Es geht wieder an die Verzierungen! 

Zunächst eine schicke Überschrift! 

5:GLS 

10 PRINT”BERECHNUNGEN” 

15 PRINT”NACH DEM GESETZ DES FREIEN FALLS” 

2ZöPRINT” ===> === Sz2.=.--- == S222 2-22 52 >>> 


30 PRINT 

Nun verfeinern wir die Ausgabe: 

96 PRINT”BEI FREIEM FALL AUS ”;H;” METER” 

95 PRINT 

166 PRINT”IST DIE FALLZEIT ”;T;” SEKUNDEN” 

116 PRINT”UND DIE ENDGESCHWINDIGKEIT ”;V;” METER/SEKUNDE” 

Bei einem Probelauf hat mir der Ausdruck nicht gefallen. Geben Sie noch einmal 
ein: 

100 PRINT”IST DIE FALLZEIT ";T;” SEKUNDEN” 

Also nach ...ZEIT soviele Blanks, daß die Gänsefüßchen in 160 und 110 schön 
untereinander stehen. 

Und nun noch: 


85 CLS 
Wer kann sich schon etwas unter — beispielsweise — „40 m/s“ vorstellen? An km/h 
sind wir gewöhnt. Also bieten Sie Ihren Freunden noch einen besonderen 
Service. 
„40m/s“ sind 40*3600 m/h — weil eine Stunde 3600 Sekunden hat. Das teilen 
Sie dann noch durch 1000 — weil 1 km 1000 m hat. 
Für den Computer bedeutet das: 
126 PRINT 
136 PRINT”DAS IST EINE GESCHWINDIGKEIT VON ”;V*3.6;” KM/STUNDE” 
Und für den, der es öfter spielen will, fügen wir noch ein: 
1460 FOR X = 1 TO 1660 : NEXT 
156 GO TO 5 
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Was haben Sie dazugelernt? 


© Achten Sie darauf, daß sie bei Produkten in Formeln und mathematischen 
Ausdrücken das * nicht vergessen! 
3H ; 5X/2B usw. ist für den Computer unverständlich. Er will es so haben: 3*H;; 
5*X/2*B usw. 

© Sagen Sie, daß Sie mir Zeile 130 nicht glauben? 
Das ist so gerechnet: V *(3600/1000) = V * 3.6. Einverstanden ? 

© Eine Anmerkung noch für Perfektionisten: Für Höhen ab ca. 5000 m erreichen 
Sie so langsam Schallgeschwindigkeit... 
Die Formeln berücksichtigen nicht den Luftwiderstand, den der fallende Körper 
erfährt und der ihn verlangsamt. Die Formeln gelten (genau) nur für den 
Weltraum! 
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..ist nicht der Titel für das nächste Programm. Nein, Sie sollen einmal versuchen, 

ein Programm selbständig zu schreiben. 
Die folgenden Skizzen habe ich dem schon erwähnten Tabellenbuch entnom- 

men (Abb. 11). 

Ihre Aufgabe: 

® Für die vier Körper Würfel, Prisma, Pyramide und Kegel sollen Sie ein Pro- 
gramm schreiben, welches das 

® Volumen für beliebige Eingangsgrößen ermittelt. 

Es wäre unfair, zu spicken; das vollständige Programm folgt gleich. Sie sollten es 

ruhig einmal abdecken und sich ans Werk machen. Zu Ihrer eigenen Kontrolle! 
Ich will Ihnen einige Tips geben. Sie können das Programm mit Hilfe folgender 

Befehle aufstellen: 

PRINT... 

INPUT... 

IF... THEN... 

ON...GO TO 

Der bekannten „Warteschleife“ und schließlich 

GO...TO... 

5 CLS 

10 PRINT” ZWISCHENEXAMEN” 

20 PRINT“ UEBUNGSPROGRAMM ZUR VOLUMENBERECHNUNG” 


30 PRINT 

40 PRINT“ AUSWAHLTABELLE” 

50 PRINT 

SOPRINT?WUERFEL 25.544442. 24 an BITTE 1 DRUECKEN !” 
20 BRINT PRISMA. 2.222.252 0. BITTE 2 DRUECKEN !” 
BORRINT-PYRAMIDE sen. 4240 Rene BITTE 3 DRUECKEN !” 
96PRINT”KEGEL ...........:.22cucneneneneen en BITTE 4 DRUECKEN !” 
100 INPUT N 


116 IF N<1 THEN 150 
126 IF N>4 THEN 150 
130 ON N GO TO 200,300,400,500 
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Würfel (Kubus) 


Rauminhalt :: 
V=0.0-0=03 ; 


Kantenlänge : a = yY 


Raumdiagonale D = ay3’ 


Prisma 


V = Grundfläche « Höhe 
V=a-.b-h V=Fh 


Pyramide 
_ bh _ Fh 
rn 3 
- ns 
hy= h t7 
b? 
L= hir 


ha und hu=Flächenhöhen L =Kantenlänge 


Kegel 


Mantelfläche M = V= 


Abb. 11 Lassen Sie den Computer bei der Berechnung der geometri- 
schen Körper mitspielen 
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156 PRINT”FALSCHEINGABE !!” 

166 FOR X = 1 TO 1006 : NEXT 

176 GO TO5 

200 CLS 

216 PRINT”WUERFELBERECHNUNG” 

215 PRINT”=== === === === === == == == === == == ==> 
220 PRINT 

236 INPUT”KANTENLAENGE A IN MM EINGEBEN ! ";A 

240 PRINT 

250 PRINT”’DAS VOLUMEN DES WUERFELS IST ”‚A13;” KUBIKMILLIMETER” 
266 FOR X = 1 TO 1060 : NEXT 

276 GO TO5 

300 CLS 

316 PRINT”PRISMENBERECHNUNG” 

315PRINT’’== == === === == === === === === == ===> 


320 PRINT 

325 INPUT”’KANTENLAENGE A IN MM EINGEBEN ! ";A 

336 INPUT”KANTENLAENGE B IN MM EINGEBEN ! ";B 

346 INPUT”HOEHE H IN MM EINGEBEN ! ”;H 

356 PRINT 

366 PRINT”DAS VOLUMEN DES PRISMAS IST ”; A*B*H;” KUBIKMILLI 
METER” 

376 FOR X = 1 TO 1000 : NEXT 

380 GO TO 5 

400 CLS 

416 PRINT’PYRAMIDENBERECHNUNG” 

415 PRINT”== = === === == === = = === == = = === ===> 


420 PRINT 

430 INPUT”’KANTENLAENGE A IN MM EINGEBEN ";A 

440 INPUT”’KANTENLAENGE B IN MM EINGEBEN ”;B 

4560 INPUT”’HOEHE DER PYRAMIDE IN MM EINGEBEN ";H 

460 PRINT 

476 PRINT”DAS VOLUMEN DER PYRAMIDE IST ”;(A*B*H)/3;” KUBIKMILLI 
METER” 

480 FOR X = 1 TO 1006 : NEXT 

496 GO TO5 

506 CLS 
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510 PRINT”KEGELBERECHNUNG” 


536 PRINT 

546 INPUT”RADIUS DES GRUNDKREISES IN MM EINGEBEN ! ";R 

550 INPUT”HOEHE DES KEGELS EINGEBEN ! ”:H 

560 F = R12*3.1416 

576 PRINT”DAS VOLUMEN DER PYRAMIDE IST ”:(F*H)/3;” KUBIKMILLI 
METER” 

580 FOR X = 1 TO 1066 : NEXT 

596 GO TO5 

606 END 


So; war es schwer? Ich würde mich nicht wundern, wenn Sie ein Programm 
hingekriegt hätten, das bestens funktioniert — aber (ganz) anders aussieht, als 
meines! Machen Sie sich nichts draus. Merken Sie sich lieber: 

10 Programmierer liefern für die gleiche Aufgabe mindestens 11 Programme! 

Es kommt nicht (so sehr) darauf an, wie Sie Ihr Programm aufgebaut haben - es 
kommt (viel mehr) darauf an, daß es funktioniert! 


Was haben Sie dazugelernt? 


® Hoffentlich als erstes: Daß das Programmieren gar nicht so schwer ist. 

© Daß dieses schon „lange“ Programm - von den unterschiedlichen Formeln 
einmal abgesehen — im Grunde aus vier nahezu gleichen Programmteilen 
bestand. 
Diese wurden lediglich durch 
ON...GO TO... 
”WARTESCHLEIFE” und 
Rücksprung (GO...TO...) 
zusammengefügt. 

® Hoffentlich haben Sie auch das Entflechten von Formeln richtig gemacht. Für 
alle Fälle noch mal eine kleine Wiederholung! 
Auf der Skizze mit den Formeln steht bei Pyramide (unter anderem) 


2 
L= V Be, 
4 
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Schreiben Sie doch mal (noch ist Zwischenexamen!) computergerecht. 
Hilfestellung: Auf Seite 45 haben Sie etwas über Klammern gehört. Machen Sie es 
wie der Computer, fangen Sie „innen“ an. 


hp? wird zu HBT2; 


= wird zu B?2/4; 


2 
hy? + = wird zu (HB?2)+(B12/4): 


und nun noch 
SQR (( HBf2) + (BT2 / 4) ) 


Fertig. Oder? 
Beachten Sie die Feinheiten der mathematischen Umgangssprache: hb würde 
heißen h mal b; für den Computer also h*b. Und da wir uns auf Großbuchstaben 
geeinigt haben, hieße es H*B. 

In der Formel steht aber h, (das b ist tiefer gestellt!). Jetzt ist b ein Index vonh, 
gesprochen „ha be“, gewissermaßen „das b-te h“ (Verzeihung!). Aber Sie machen 
keinen Fehler, wenn Sie dem Computer das als HB servieren! 
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Das Symbol der „Gleichheit“ wurde uns in der Schule am Beispiel der im 
Gleichgewicht befindlichen Waage erklärt, so, wie es die Abb. 12 zeigt. 

„A“ und „5“ sind „gleich“, sind identisch, haben den gleichen Wert. Nicht 
mehr und nicht weniger soll das Gleichheitszeichen ausdrücken. 

Nun werde ich Ihnen gleich im nächsten ”Lernabschnitt” die Behauptung 
zumuten: 
A=AH+t1 
Jedem Mathematiker sträubt sich beim Anblick dieser Aussage das Nackenhaar! 
Bevor sich Ihres auch sträubt, erinnern Sie sich — oder lesen nach auf Seite 56 -, 
was ich Ihnen zum Thema Zuweisungen erklärt hatte: 
Wenn es dort hieß: 
„A=7 
Dann hatte das Gleichheitszeichen NICHT die Bedeutung von „gleich“ oder 
„identisch“ im Sinne der Mathematik. 

Vielmehr bedeutet dieser Ausdruck bei der Programmierung: 
„A=7 A sei 7 


„A=7 lasse A gleich 7 sein! 

oder 

„A=7 weise A den Wert 7 zu! 

usw. 

Das läuft zwar fast auf dasselbe hinaus. Es ist mir jedoch wichtig, daß Sie 
erkennen, wie hier — bei der Programmierung — „=“ zu verstehen ist. 


Abb. 12 Es gibt viele Arten der 
Gleichheit. Sie seien hier durch ei- 
ne Waage symbolisiert 
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Nehmen Sie an, Sie finden ein Programm wie folgendes: 


1A=1 hier wird also A der Wert 1 zugewiesen... 

20... In den Zeilen 20...40 hat der Computer irgendwas mit dem 
30... Wert A = 1 zu tun — was uns jetzt nicht interessiert. 

40... 

5$6A=AH1 ..trifft hier auf diese ungeheuerliche Behauptung... 

60... 


Prägen Sie sich bitte ganz fest ein, wie Zeile 50 gemeint ist, wie das zu lesen ist 
und wie das zu verstehen ist: 


..nach dem Du - lieber Computer — mit der von mir in 10 vorgegebenen Größe 
A=1in den Zeilen 20, 36, 46 das Befohlene gemacht hast... 


56 A=A +1 ————> ERHÖHE NUN A UM 1! 


Ab Zeile 50 hat also A für den Computer den Wert 2. Und er würde mit dem Wert 
2 für A ab Zeile 60 im Programm fortfahren. 

Ich empfehle Ihnen einen Rücksprung an den Anfang dieses Kapitels. Lesen Sie 
es noch einmal! Denn diese Programmierweise ist außerordentlich nützlich und 
vielseitig. Um das richtig einzusetzen, sollten Sie den Sinn des Gesagten ganz 
verstanden haben! 

Wie gewohnt, wollen wir das durch einige Programme solange einüben, bis 
Ihnen das in Fleisch und Blut übergegangen ist: 

NEW 

1#A=1 

260 PRINTA , A*2, A*3, A*4 

In Zeile 10 haben Sie A den Wert 1 zugewiesen... 

In Zeile 26 haben Sie befohlen, was damit zu tun ist. 


Jetzt: 
38A=AH+1 ...hier soll A um 1 erhöht werden... 
46 GO TO 26 Hier befehlen Sie, mit dem neuen Wert für A (jetzt 2!) zu 


Zeile 20 zurückzugehen, um in 26 noch einmal die Rech- 
nung auszuführen! 
Das tut der Computer treu und brav; findet dann in Zeile 36 wieder: 
Erhöhe A um 1. 
Da für ihn A inzwischen 2 war, wird A damit zu 3. 
Starten Sie einmal das Programm! 
Ja, ja- ich weiß! Gleich glüht der Apparat! Drücken Sie ESC bzw. RUN/STOP! Sie 
haben gesehen, wie das funktioniert? Daß Sie dem noch keinen rechten Sinn 
abgewinnen können, verstehe ich gut. 
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Ergänzen Sie Ihr Programm um: 


35 IFA = 15 THEN 50 
560 PRINT ”ENDE” 


Jetzt hat es wohl mehr Sinn? 
Betrachten Sie Abb. 13, damit Sie das Grundmuster dieser wichtigen Programm- 
variation verstehen! Abb. 14 zeigt die allgemeine Struktur der Schleife mit Filter 
(= Abfrage) am Ende. 

Und nun ein aus dem Leben gegriffenes Beispiel, das ich mit einer kleinen 
Geschichte einleiten möchte. 

Neulich hörte ich im Autoradio, daß sich in der letzten Tarifrunde der Arbeitge- 

berverband A mit der Gewerkschaft G auf folgenden neuen Tarifvertrag geeinigt 
haben (sinngemäß!): 
— Die Löhne der oberen Lohngruppen (Facharbeiter) werden um 5 % angehoben. 
— Die Löhne der unteren Lohngruppen (Hilfskräfte) werden um 6.5 % angehoben. 
Ich erinnere mich daran, daß die Gewerkschaft G dieses Spiel schon seit Jahren 
treibt. „Das muß doch zur Nivellierung führen! Irgendwann gibt es keinen 
Unterschied mehr zwischen Fach- und Hilfsarbeiterlohn“, dachte ich. 

Und dann hat es gefunkt — und deshalb erzähle ich Ihnen diese Geschichte. Ich 
beschloß, in dieser SACHFRAGE endlich vom „DENKEN“ und „MEINEN“ und 
„GLAUBEN“ zum „WISSEN“ zu kommen - wozu habe ich schließlich so einen 
schlauen Computer? 


Eingangsgrößen für 
den ersten Durchlauf 
festlegen 


Befehl ausführen 


Größen verändern 
für 
Lauf zwei bis... N 


"Filter ” 
Ist N erreicht ? 


-Schleife verlassen... 
-Programm abbrechen... 
- mit anderem Programmteil. 


5ß PRINT "ENDE” 


Abb. 13 Hier das Grundmuster, dem 
eine Schleife mit „Abfrage am Ende“ 


folgt 


- fortfahren ... usw. 


Abb. 14 Allgemeine Darstel- 
lung des Ablaufs von Schlei- 
fenoperationen 
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Zu Hause angekommen, setzte ich mich an meinen Computer, um den zu 
konsultieren. Der wußte natürlich — wie zu erwarten war - gar nichts! Also ging’s 
darum, ein kleines Programm zu schreiben. 

1. Schritt: Die Eingangsgrößen sind festzulegen. Ich habe mich für folgende 
entschieden: Angenommen, das finstere Spiel beginnt in diesem Jahr, gewisser- 
maßen „im Jahr 0“. Das führt zu: 

10N=® 

Der Facharbeiter hat heute einen bestimmten Stundenlohn (den ich nicht kenne). 
Ich wählte für den Facharbeiterlohn 100 (meinetwegen übersetzen Sie das mit 
100 % seines heutigen Lohnes). 

20 F = 100 

Der Hilfsarbeiter verdient weniger; ich habe einmal angenommen, daß er heute 
80 % des Facharbeiterlohnes erhält 

30 H = 80 

und das wollte ich mir ausdrucken lassen. 

46 PRINTF,H 


2. Schritt: Jetzt müssen für das nächste und die folgenden Jahre die Größen N, F 
und H verändert werden. 

565N=N+H1 

wie ich aus dem Radio erfahren hatte, erhält der Facharbeiter 5% mehr. Das 
könnte man furchtbar kompliziert so ausdrücken: 

106 + (166 *5) / 100 ergibt 

106 + ” 5 von 160”. 


Einfacher geht es so: 

106 * 1.05 

(Merken Sie sich diese „Kurzschrift“ für die Prozentrechnerei! Das benötigen Sie 
immer wieder.) 

6öF=F* 1.65 

sinngemäß heißt es dann beim Hilfsarbeiter — der ja 6.5 % mehr bekommt: 

70H =H * 1.065 

So weit — so gut. Was wollte ich eigentlich wissen? 

Ich wollte wissen, nach wievielen Jahren der Hilfsarbeiter mehr verdient als der 
Facharbeiter — wenn dieses Erhöhungsspiel Jahr für Jahr mit den gleichen Prozen- 
ten gespielt wird. Also habe ich folgendes „Filter“ in mein Programm eingebaut: 
86 IF H>F THEN 106 


Das heißt, der Computer soll solange rechnen, bis H größer ist als F. Oder anders 
herum: solange das nicht der Fall ist, soll er weiterrechnen. Das führt zu: 


96 GO TO 46 


102 


25 Wird jetzt die Mathematik verbogen? 


Für die Ausgabe habe ich mir ausgedacht: 

166 PRINT”NACH”;N;”JAHREN VERDIENT DER HILFSARBEITER MEHR ALS 
DER FACHARBEITER!” 

Ich darf annehmen, daß Sie inzwischen dieses Programm im Kasten haben? Wenn 
Sie es jetzt starten, wird ihnen der Computer am Ende zweier Zahlenkolonnen 
ausgeben: 

NACH 16 JAHREN VERDIENT DER HILFSARBEITER MEHR ALS DER FACH- 
ARBEITER! 


So, nun weiß ich’s endlich! 


Was haben Sie dazugelernt? 


® Eine sinnvolle Erweiterung von Zuweisungen. 

© Dieses Rechnen in Schleifen erinnert zwar an die FOR...NEXT...-Schleife. Aber 
bei dieser verändern Sie nur eine Variable. Ich habe hier drei Variablen verän- 
dern lassen. Nämlich N, F und H. Wenn die Aufgabe es erfordert, können Sie 
auch 30 nehmen. 

© Sie können innerhalb der Schleifen die einzelnen Variablen unterschiedlich 
verändern. Ich habe im Sinne der Aufgabe gewählt. 


N=N+H1 also in jedem Lauf um 1 erhöht. 
F=F* 1.65 also in jedem Lauf mit 1.65 multipliziert. 
H=H * 1.065 also in jedem Lauf mit 1.665 multipliziert. 


Je nach Aufgabe könnten Sie auch bestimmen: 
N=N-2;N=N/3 usw. 
© ZWEI TÜCKEN hat diese „Schleiferei“! 
— Sie müssen sorgsam beachten, wo und wie Sie einsteigen! 
— Sie müssen sorgsam beachten, wo und wie Sie aussteigen! 
Betrachten Sie die letzte Zahlenreihe Ihres Computerausdrucks: F = 207.9...;H 
= 205.76... 
Da ist jaH NOCH NICHT GRÖSSER ALS F!! 
Zur Erklärung schauen Sie noch einmal auf das Schema, Seite 101. Der 
Computer hat beim 16. Durchlauf (N = 16) erkannt: 
F = 218.295 ; H = 219.134 
Dort ist jetzt H größer als F! 
Der Computer ist aber bei N = 16 ausgestiegen zu Zeile 100 wie befohlen - und 
hat die Werte für F , H nicht mehr hingeschrieben. Weil er nicht mehr zu Zeile 
46 zurückgekehrt ist! 
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© Und was das Einsteigen angeht: Hätte ich mit N = 1 begonnen, hätte der 
Computer ausgegeben ...NACH 17 JAHREN !... und mich glatt angelogen! 
Es erfordert also einiges Nachdenken, wie Sie Anfangswerte und den Zeitpunkt 
des Programm-Abbruchs setzen! 

Hätten Sie Lust, an diesem Beispiel noch etwas zu üben? Entwerfen wir 
zunächst ein Szenario! 

Wir beginnen das Erhöhungsspiel im Jahre 1980. Natürlich merken die Fachar- 
beiter langsam, daß sie — relativ — immer weniger verdienen. Sie reagieren 
entsprechend. Das führt dazu, daß beide Lohngruppen sich für die Jahre 1985 bis 
1988 einschließlich mit je 5 % begnügen müssen. Dann erkennt man langsam, daß 
offenbar immer weniger Leute Lust haben, einen Beruf zu erlernen. Um dem sich 
abzeichnenden Facharbeitermangel abzuhelfen, dreht man den Spieß um und 
erhöht erstmals für das Jahr 1989 die Löhne der Facharbeiter um 7 %, die der 
Hilfsarbeiter um 5 %. 

Preisfrage: Wie sehen H und F im Jahre 1995 aus? 
Trauen Sie sich zu, diese Aufgabe zu lösen? 


Fangen wir gemeinsam an: 


10 N = 1980 

20 F = 106 

30 H = 80 

46 PRINTN,F,H 
56N=N+H1 
66F=F* 1.05 


70H =H * 1.065 
80 IF N = 1985 THEN 106 
96 GO TO 46 


So, bis hierher ist das Programm fast identisch mit dem vorigen. Jetzt müssen wir 
ab 1985 die Variablen F und H mit anderen Faktoren arbeiten lassen! 


1#8N=N 
11dF=F 
126H=H 


136 PRINTN,F,H 


Hier müssen wir zwei Dinge tun: 

1. Wir müssen die Größen aus dem ersten Lauf (bis ...90) unverändert in den 
zweiten Lauf (ab 106...) hinüberbringen. Denn es war zwar im ersten Lauf 1985 
erkannt worden. Aber es wurde aus schon bekannten Gründen NICHT hinge- 
schrieben. Durch N = N geschieht das jetzt erst im zweiten Lauf (...in 130). 

2. Wir müssen in der zweiten Schleife auch (in 136) einen neuen PRINT-Befehl 
einbauen, da wir den in 46 nicht mehr benutzen können! 
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146 N=N+1 

1560 F=F* 1.65 

1606H =H * 1.05 

170 IF N = 1988 THEN 190 
180 GO TO 130 


198 N=N 

2060 F=F 
21H=H 

226 PRINTN,F,H 
238 N=N+t1 


240 F=F * 1.07 
250H=H* 1.05 

260 IF N = 1996 THEN 280 
270 GO TO 220 

280 END 


25 Wird jetzt die Mathematik verbogen? 


Erkennen Sie die Übereinstimmungen - aber auch die Unterschiede - in den 
einzelnen Programmteilen? Achten Sie auch auf Zeile 260! Mit diesem Trick 
erreichen wir, daß die Werte für das Jahr 1995 noch mit ausgedruckt werden. 


BITTE LASSEN SIE DIESES PROGRAMM NOCH STEHEN! 
(Wir arbeiten daran in etwa 15 Minuten weiter!) 


Abb. 15 erläutert noch einmal die einzelnen Programmschritte (Seite 106). 
Wenn man das, was in dem letzten Programm geschehen ist, graphisch darstel- 


len möchte, dann kommt etwas dabei heraus, was Abb. 16 zeigt. 


100 


80 


Abb. 16 Das Lohnniveau von 
Facharbeitern und Ungelernten 
als Grafik dargestellt. Die zu- 
grundeliegenden Daten sind 
frei erfunden 


1980 


1985 


1988 


1995 


N 
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Abb. 15 Das Flußdiagramm 
zum Lohnniveau-Programm 
zeigt deutlich, daß die Schlei- 
fen mit Eingangswerten ver- 
sorgt werden müssen und daß 
eine Kontrolle für den Abbruch 
vorhanden sein muß 


neue E.- Größen 


220 PRINT 


230.....250 
3. Veränderung 


280 END 


26 Jetzt geht es rund! 


Manchmal können die vorzüglichen Eigenschaften des Computers auch ausge- 
sprochen lästig sein. Etwa dann, wenn er etwas — wie im vorigen Programm - auf 
sechs Stellen hinter dem Komma ausrechnet, was Sie nur auf zwei Stellen zu 
wissen wünschen. 

Wenn Sie die Zahl 127.32938 sehen, aber nur an zwei Stellen hinter dem 
Komma interessiert sind, lesen Sie blitzschnell nur 127.33. 

Dabei haben Sie die zweite Stelle hinter dem Komma bereits aufgerundet, weil 
Sie auf den ersten Blick erkannt haben, daß die dritte Stelle hinter dem Komma 9 
ist. Sie haben also ...329 zu ...33 gemacht und liegen damit dichter bei dem 
wahren Wert ...329, als hätten Sie sich bloß für ...32 entschieden. So etwas sollte 
ein Computer halt auch können! 

Er kann es. Allerdings nicht so problemlos wie Sie. Man muß ihm das mit 
einem trickreichen Programm erst beibringen. An dieses Programm wollen wir 
uns jetzt in kleinen Schritten heranmachen. Wir führen einen neuen Befehl 
namens INT ein. INT ist die Abkürzung von „INTeger“ — und das heißt zu 
deutsch „ganze Zahl“. 

Finden Sie heraus, wie das wirkt. Geben Sie ein: (ACHTUNG! Denken Sie an 
das Programm von vorhin! KEINE ZEILEN-NUMMER!) 

PRINT INT (3.5) statt PRINT geht auch? 


Und jetzt nicht RUN, sondern bloß | ENTER 


Der Computer gibt aus: 3. 
Und nun: 

PRINT INT (-3.5) 

Der Computer gibt aus: —4. 


Wenn Sie diesen vermeintlichen Unsinn verstehen wollen, blicken Sie auf die 
Zahlengerade der Abb. 16a. 


INT(-35) INT (35) 
| -35 35 
= BE. he ee ae Er 


Abb. 16a Auf der Zahlengeraden sind einige Werte für INT (XX) eingetragen 
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In Worten bedeutet das: 

Auf den Befehl INT(...) liefert der Computer... 

...die nächstliegende... 

kleinere... 

..ganze Zahl der in ( ) hinter INT befindlichen Dezimalzahl. 


Das müssen Sie mehrmals lesen und mit den beiden Beispielen vergleichen: 
® Bei INT (3.5) ist in ( ) die Dezimalzahl 3.5 eingetragen. 
Der Computer macht daraus 3. 
3 aber ist die 3.5 nächstliegende, 
kleinere, 
ganze Zahl. 
© Bei INT (-3.5) ist in( ) die Dezimalzahl -3.5 eingetragen. 
Der Computer macht daraus —. 
—4 aber ist die -3.5 nächstliegende, 
kleinere, 
ganze Zahl. 
Wozu das gut sein soll, lernen Sie am besten an einem Programm, das wir zur 
Schonung des noch vorhandenen mit der Zeilen-Nummer 500 beginnen lassen. 
Also: 
560 INPUT” ICH BIETE 7.03 % ZINSEN.” 
565 PRINT” WIEVIEL KAPITAL WOLLEN SIE ANLEGEN?” 
516 INPUT A 
526 K= A * 1.0703 
5360 PRINT”NACH EINEM JAHR BESITZEN SIE ”;K;” DM” 
546 END 
Wenn Sie jetzt einfach RUN eingeben, startet Ihr gespeichertes Programm, das ja 
mit einer niedrigeren Zeilen-Nummer beginnt. Wir wollen es überspringen und 
geben deshalb ein: 


RUN 506 


Jetzt beginnt der Computer seine Arbeit erst ab Zeile 566! 


Geben Sie bitte auf die Fragen des Computers nacheinander die unten stehenden 
Antworten ein. Sie erhalten dann: 


Eingabe für A Ausgabe für K 
106 107.03 

97.37 104.215 

90 96.327 
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Sie haben bei der zweiten und dritten Eingabe ein Ergebnis mit drei Stellen hinter 
dem Komma, obwohl — wie bei Geldgeschäften üblich — Sie es nur „auf den 
Pfennig genau“ haben möchten. 


Ergänzen Sie Ihr Studienprogramm um: 
525 K= INT (K) 
Geben Sie die gleichen Zahlen wie vorhin ein; Sie erhalten: 


Eingabe für A Ausgabe für K 
166 167 

97.37 164 

96 96 


Protest! Mit einer Bank, die so großzügig rundet, wollen Sie sicher nichts zu tun 
haben! Immerhin hat Sie Ihnen - im letzten Beispiel — ganze 32.7 Pfennig 
weggerundet — oder in die eigene Tasche gesteckt! 

Vielleicht hilft uns das weiter? 


525 K = INT (K* 100)/166 
Immer noch mit den Zahlen von vorhin, ergibt das jetzt: 


Eingabe für A Ausgabe für K 
160 107.03 

97.37 104.21 

96 96.32 


Das sieht doch schon freundlicher aus! 
Vollziehen wir den Computerbefehl nach (mit der Eingabe 97.37). 
..in Zeile 520 wird K zu 104.215 
..in Zeile 525 wird zunächst gerechnet K * 106 
das ergibt 16421.5 
..dann INT (16421.5) — das ergibt 10421 
..das geteilt durch 166 — das ergibt 104.21 
Geschafft? Nicht ganz! Denn bei dem Beispiel A = 90 ist herausgekommen 
K = 96.32. 
Es wurde also abgerundet 96.327 zu 96.32 — und das entspricht nicht den 
Regeln eines honorigen Bankiers! 96.33 würde der Ihnen nämlich gutschreiben. 
Aber das kriegen wir auch noch hin! Schreiben Sie: 


525 K= INT (K * 166 + .5)/100 
Und nun erhalten Sie für A = 90 tatsächlich K = 96.33! 
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Auch hier wollen wir den Rechengang nachvollziehen! 
K = INT (K * 100 + .5)/100: 


erstens: K * 106 = 9632.7 
zweitens: +.5 = 9633.2 
drittens: INT(K..) = 9633 

viertens: /106 f = 96.33 


Das geheimnisvolle Hinzufügen von .5 bewirkt also hier die gewünschte Aufrun- 
dung! 


Zum Vergleich: 


K = 104.213 
K * 106 = 10421.3 
+5 = 10421.8 


Wir kommen also hier durch Addition von .5 nicht von der Zehntel- in die 
Einerstelle! 


../100 = 104.21 
Wenn Sie das Besprochene noch einmal auf einen Blick sehen wollen, geben 
Sie ein: 
600 FOR A = 100.661 TO 106.4 STEP .633 
616 PRINT A,INT(A),INT(A *100)/160 ‚INT(A*100+.5)/100 
626 NEXT A 
Auf RUN 666 sehen Sie, daß nur in der vierten Spalte korrekt gerundet wird. 


Und nun arbeiten wir — wie versprochen — am letzten Programm weiter und 
ergänzen es um: 
65 F = INT(F*166 +.5)/160 
75 H = INT(H*1060 +.5)/166 
155 F = INT(F*160 +.5)/106 
165 H = INT(H*106 +.5)/100 
245 F = INT(F*100 +.5)/160 
255 H = INT(H*106 +.5)/166 


Das ist doch jetzt ein professionelles Ergebnis?! 
Merken Sie sich für den Umgang mit Geld die „klassische“ Formel: 
K = INT(K*106 +.5)/166 
Insbesondere in der Mathematik wollen Sie gelegentlich auch runden, aber nicht 


auf zwei Stellen, sondern auf drei oder vier oder mehr. Wie macht man nun so 
etwas? Sehen Sie noch einmal hin: 
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Das ergibt Rundung auf zwei Stellen: 
K=INT(K * 100 + .5 ) / 100 
Y v 
160 100 ist 10? (Zehn hoch zwei) 


Das ergibt Rundung auf drei Stellen: 


K=INT(K * 1000 + .5 ) / 1000 


1006 1006 ist 10° (hoch drei) 


Ganz allgemein gilt: 


K=INT(K* 161 N + .5)/ 18T N 
ergibt Rundung auf N Stellen! 


Hier biete ich Ihnen ein Programm zum Ausprobieren: 


NEW 

5 CLS 

16 INPUT”’WELCHE ZAHL WOLLEN SIE RUNDEN ”; K 

26 INPUT”AUF WIEVIELE STELLEN ”; N 

30 A = INT(K * 16 {N + .5) /101N 

35 PRINT 

46 PRINT K;” AUF”;N; ” STELLEN GERUNDET, ERGIBT ”; A 

50 FOR X = 1 TO 1606 : NEXT 

66 GO TO5 

Wenn Sie genug gespielt haben, noch etwas Ernsthaftes zu INT. Es kommt vor, 
daß Sie für eine bestimmte Aufgabe aus einer Dezimalzahl (Beispiel: 6.5) die 


EINER als 6, die Zehntel als 5 isolieren sollen. Ich zeige Ihnen, wie man das mit 
INT macht. 


Programm Was geschieht? 
NEW 
16 INPUT N Sie geben 6.5 ein! 
260 E = INT(N) E (für EINER) ist dann 6 
30 Z = (N * 10)-(E * 10) Z (für ZEHNTEL) ist: 

N * 10 = 65; 

E * 16 = 66; also: Z = 5! 
460 PRINTE,Z Ergebnis: 6 5. 
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Etwas verzwickter wird es, wenn Sie aus der Zahl 12.3 Zehner, Einer und Zehntel 
nach dem gleichen Schema isolieren wollen. Fangen Sie an: 


Programm Was geschieht? 
16 INPUTN Sie geben ein: 12.3 
Zur Ermittlung der ZEHNER führen Sie eine Zwischenrechnung durch: 
26 A = INT(N)/16 das ergibt 1.2 
30 ZE = INT(A) ZE für ZEHNER ergibt dann 1 
Für die EINER programmieren Sie: 
40 E = (A * 16) - (ZE * 16) das ergibt: 
(A*10) = 12 
(ZE*10) = 10 


Also E für EINER = 2 
Und schließlich für die ZEHNTEL: 


50 Z = N*10 - INT(N)*10 N*10 = 123 
INT(N) = 12 
.*10 = 126 


also Z für ZEHNTEL = 3 

Und nun alles zusammen: 
60 PRINTN,ZE,E,Z 
ergibt: 

12.3 1 2 3 
Wir werden von dieser pfiffigen Technik noch Gebrauch machen! Sie können ja 
mal versuchen, ein Programm für das Isolieren der in 123.4 steckenden Ziffern zu 
schreiben! 
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Was haben Sie dazugelernt? 


© Wie man den INT-Befehl zum Runden auf beliebig viele Stellen nutzen kann. 


Ebenso wie die „Warteschleife“ sollten Sie - wenn’s ums Geld geht - im Kopf 
haben: 
X = INT(X*100 +.5)/160 

© Gerade beim Üben hat man oft mehrere Programme in seinem Kasten. Um diese 
Programme oder Programmteile nicht gegenseitig zu stören, legen Sie in den 
Programm-Nummern der einzelnen Teile einen deutlichen Abstand ein. Also: 
Teil 1 SEREARRE 276 END 


Teil 2 500... 580 END 
Teil 3 788.......... 1000 END 
usw. 


Abarbeiten lassen Sie diese Teilprogramme durch den Aufruf: 
RUN 
RUN 5066 
RUN 766 
usw. 

® Schließlich kann man den INT-Befehl nebst einigen Tricks dazu benutzen, aus 
Dezimalzahlen die einzelnen Stellen als Einzelziffern zu isolieren. Dazu müssen 
Sie ggf. Zwischengrößen für Zwischenrechnungen einführen. In unserem Bei- 
spiel war das: 
26 A = INT(N)/16 
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27 Der Computer als Digitaluhr 


Dieses Programm habe ich zu Ihrer Entspannung gedacht. Oder zum Trost: Falls 
Sie von der Programmiererei genug haben, brauchen Sie Ihren Computer nicht 
wegzuwerfen. Sie können ihn als recht genaue Digitaluhr weiterverwenden. Den 
Umbau werden wir ohne Lötkolben und Schraubenzieher durchführen - er erfolgt 
nur per SOFTWARE, wie die Profis das nennen. 

Erster Schritt: 

NEW 

1#A=1 

20 PRINT A 

38A=AHt1 

46 GO TO 26 

Jaja, ich weiß, daß Sie sich durch dieses Programm fast veralbert fühlen. Aber es 
bildet die „wissenschaftliche Grundlage“ unserer Digitaluhr und sie sollten es 
getrost einmal starten. 


Wenn Sie genug haben, unterbrechen Sie mit ESC |bzw.| RUN [und 
; STOP 
fahren Sie fort: 


15 CLS$*) 
40 GO TO 15 


So, ich hoffe, jetzt lachen Sie nicht mehr! Sie lernen, was man mit einem „gezielt“ 
eingesetzten CLS NOCH machen kann, statt nur die Tafel auszuwischen! 
Und jetzt noch: 


35 FOR X = 1 TO 1000 : NEXT 


Ich könnte mir vorstellen, daß Sie jetzt schon ahnen, wie es weitergeht. Das, was 
sich auf dem Bildschirm abspielt, sieht aus wie ein laufender Zähler. Und was ist 
eine Uhr anders als ein (Zeit)-Zähler? 

Was wir als nächstes tun müssen, ist offensichtlich: Wir müssen einen „Zähl- 
takt“ gewinnen, der uns genau im Abstand einer Sekunde unseren Zähler weiter- 
schaltet. Im Augenblick wird der Zähler — wie Sie ja selbst erarbeitet haben - 
durch die (zeitliche) Länge der FOR...NEXT-Schleife in Zeile 35 gesteuert. Um 
genau zu sein: wir müssen 1060 solange verändern, bis das „Weiterschalten“ 
genau alle Sekunde passiert. Dafür gibt es keine feste Regel, weil das fast bei 


*) Ein letztes Mal: Für den C-64 heißt es: PRINT CHR$(147) 
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jedem Computer anders ist. Bei meinem hatte ich für den Anfang einen ziemlich 
genauen Sekundentakt durch: 

35 FOR X = 1 TO 500 : NEXT 

Schon jetzt könnten Sie Ihr Programm in Richtung Stoppuhr weiterentwickeln, 
mit dem Sie nur Sekunden — oder, bei entsprechend „kurzer“ FOR...NEXT- 
Schleife - Zehntelsekunden zählen können. Aber wir haben uns ein ehrgeizigeres 
Ziel gesetzt: wir wollen ein Gerät bauen, das neben Sekunden auch Minuten und 
Stunden zählt. 


Zweiter Schritt: 


NEW 

16 S = 59 

260 INPUT”GEBEN SIE DIE AKTUELLE MINUTE EIN ";M 

36 INPUT”GEBEN SIE DIE AKTUELLE STUNDE EIN ";ST 

460 FOR N = 1 TO 506 : NEXT 

50S=S+1 

60 IF S = 66 THEN 80 

76 GO TO 566 

80S=Ö 

99M=M+H+H1 

166 IF M = 66 THEN 120 

110 GO TO 566 

126M =6 

130 ST=ST+1 

140 IF ST = 24 THEN 180 

1560 GO TO 566 

1868S=6:M=06:ST=Ö 

5060 CLS 

516 PRINT ST;”:”;M;”:”;S 

520 GO TO 46 

Die Wirkungsweise dieses Programms will ich Ihnen genau erklären. In Zeile 16 

habe ich mit S = 59 zunächst die Sekunden mit 59 vorgegeben. 
Die Zeilen 20 und 30 dienen dem Stellen der Uhr. Wenn Sie das Programm 

starten, wird der Computer beginnen: 


GEBEN SIE DIE AKTUELLE MINUTE EIN 


Angenommen, jetzt, wo Sie vor Ihrem Computer sitzen und die Uhr starten, ist es 
11:10:15 — das heißt, 11 Uhr zehn und 15 Sekunden. Sie beantworten also die 


Frage des Computers mit 10. Auf | ENTER | wird er weiterfragen: 


GEBEN SIE DIE AKTUELLE STUNDE EIN 
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Sie antworten mit 11, drücken aber nicht | ENTER |. Inzwischen wird es wohl 


11:10:50 geworden sein. Sie beobachten Ihre Vergleichsuhr, und in dem Augen- 


blick, wo der Sekundenzeiger von 58 auf 59 geht, drücken Sie| ENTER |. Damit 
fährt das Programm ab. 


In Zeile 46 wird zunächst eine Sekunde gewartet. In Zeile 56 wird S um 1, also 
auf 66, erhöht. Damit ist Zeile 60 „wahr“ und der Computer springt zu Zeile 80, 
wo S wieder auf Ö gesetzt wird. 

In Zeile 908 angekommen, wird M um 1 erhöht, erreicht also 11. Zeile 166 ist 
damit noch nicht „wahr“ und Zeile 110 schickt den Computer zu 560, damit 
zunächst der Schirm gelöscht wird. Zeile 510 befiehlt nun, ST, M und S hinzuzu- 
schreiben. Nach dem akuten Stand bedeutet das 11:11:0. Zeile 526 schließlich 
schickt das Programm wieder an den Anfang. 

S wird um 1 auf 1 erhöht... Zeile 60 ist jetzt nicht wahr und der Computer geht zu 
5066, löscht den Schirm und schreibt: 11:11:1, usw. 

Ist es 11:59:59 geworden, dann wird beim nächsten Durchlauf 66 und 100 als 

wahr erkannt und es geschieht: 


S wird auf Ö gesetzt 
M wird auf 0 gesetzt 
ST wird (in 130) um 1 erhöht 
ausgeschrieben wird 12:0:0. 
Ist es 23:59:59 geworden, dann würde mit‘der nächsten Sekunde die Uhr auf 24... 
springen. „24 Uhr“ aber gibt es nicht! Sobald also 24 erkannt wird, geht der 
Computer in Zeile 180 und setzt ALLES auf d. Ausgedruckt wird dann 0:6:6. Und 
das Spiel beginnt von neuem. 

Ist doch unterhaltsam, was man mit einem Computer alles anstellen kann! 
Wenn Sie sich von Ihrem Programm trennen können, machen wir mit dem 
nächsten Abschnitt weiter! 
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Schreiben Sie einmal folgendes Programm: DATA 
NEW n ' 
10 READ A | 
20 PRINTA , A*2.5,, A*3.5 , A*4.5 
30 GO TO 16 
460 DATA 1,2,3 
Dieses Programm druckt aus: a 
Datenliste : 1,2,3 
1 2.5 3.5 4.5 
2 5 7 9 Abb. 17 Die READ-Anweisung schaltet 
intern im Computer einen Zeiger auf 
3 7.5 10.5 13.5 das nächste Datum weiter - bis nichts 
? OUT OF DATA ERROR IN 16*) mehr da ist. Dann wird protestiert 
READY 
| 


In diesem neuen Programm gehören die Zeilen 10 und 46 zusammen. 
READ.......... DATA. .2,; 
heißt zu deutsch: LESE.......... (für READ) 
die DATEN.......... (für DATA) 
Das Programm oben befiehlt dem Computer: 


10 READ... Lese (oder hole oder suche) die Daten, die ich im Programm 
unter der Variablen A in der Datenliste abgelegt habe... 
20 PRINT... Führe den Print-Befehl aus. Der Computer geht in die 


DATA...-Zeile, findet dort für A als erstes den Wert 1 und 
führt damit den Print-Befehl aus. 

30 GO TO 16 fordert ihn auf, das Spiel noch einmal zu spielen. Er findet 
in der Datenzeile als nächstes den Wert 2 (der Computer 
hat sich gemerkt, daß er 1 schon bearbeitet hat!). 

Das tut der Computer so lange, wie er Daten findet. 


Hat er alle Daten vorgekramt — und entsprechend Zeile 20 bearbeitet —, druckt er 
aus: 


? OUT OF DATA ERROR IN 10*) 
Das soll heißen: OUT OF DATA zu deutsch: „keine Daten mehr da!“ 


*) Gilt für den C-64! 


117 


28 Der Computer liest Daten 


Die Abb. 17 soll an einem Beispiel deutlich machen, wie das Zusammenspiel 
von READ und DATA vor sich geht. Abgebildet ist das Schaltbild eines elektri- 
schen Schalters, hier das eines einpoligen, dreistufigen Drehschalters. Für jeden 
Durchlauf wird der Schalter um eine Position weitergedreht; dabei zeigt der 
Schaltfinger des Schalters jeweils auf das entsprechende Datum. Also: 


Schaltstellung 1 entspricht erstem Lauf: Datum ist 1. 
Schaltstellung 2 entspricht zweitem Lauf: Datum ist 2. 
Schaltstellung 3 entspricht drittem Lauf: Datum ist 3. 


Das sollten Sie sich ruhig genau betrachten, damit Ihnen bereits an diesem ersten, 
einfachen Beispiel das Zusammenspiel von READ... und DATA... klar wird — es 
wird gleich komplizierter! 

Schreiben Sie ein neues Programm! 

NEW 

10 READ A,B 

26 PRINT A, A*5, B, B*5 

36 GO TO 106 

40 DATA 1,2,10,20,100,206 


Dieses Programm liefert das Ergebnis: 


1 bo) 2 16 
16 56 20 106 
100 500 200 1000 


Das ist nicht auf Anhieb einzusehen. Wir wählen wieder unseren Schalterver- 
gleich, verwenden aber diesmal einen zweipoligen Drehschalter mit drei Schalt- 
stellungen (Abb. 18). 

Obwohl die Datenliste lautete: 1,2,10,20,100,200, hat der Computer die Datenli- 
ste wie folgt interpretiert: 


Für den ersten Lauf: A=1; B=2; 
für den zweiten Lauf: A = 10, B = 20; 
für den dritten Lauf: A = 100, B = 200. 
DATA 
1 19 188 2 28 208 
* Abb. 18 So könnte ein Mechanismus aus- 
READ A READ B sehen, der wie eine READ A,B-Anweisung 
’ funktioniert, wenn sie mehrfach durch- 
Datenliste : 1,2.10, 28, 120, 209 laufen werden soll 
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In der Abbildung oben sind die Schleifer der beiden Schalterebenen starr mitein- 
ander verbunden, was durch die gestrichelte Linie angedeutet ist. 
READ A und READB geschehen also gleichzeitig; an den einzelnen Schalteraus- 
gängen ist oben angeschrieben, was für Daten jeweils gelesen werden. 
Weil es so schön war, geben Sie noch einmal ein: 
NEW 
18 READA,B,C 
26 PRINT A 
36 PRINT A,B 
460 PRINT A,B,C 
50 GO TO 16 
66 DATA 1,2,3,10,20,30,100,200,306 


Dieses Programm führt den Computer zu folgendem Ergebnis: 
1 


1 2 

1 2 3 
16 

10 20 

10 20 30 
106 

106 200 

106 200 300 


OUT OF DATA ERROR IN 10 

Zum Verständnis dieses Computerergebnisses wählen wir wieder unseren Schal- 
tervergleich. Sie vermuten richtig: dieses Mal wählen wir einen dreipoligen 
Schalter mit drei Schaltstellungen (Abb. 19). 

Beachten Sie, an welchen Schalterausgängen welche Daten angeschrieben sind 
und wenden Sie sich noch einmal dem Computerausdruck zu! 


DATA 
| 108 2 20 200 3 


NEANDAND 


Datenliste : 1, 2,3, 1B, 2B, 30, 108, 200, 308 


READ A, 


Abb. 19 Ein Mechanismus für READ A,B,C 
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Erster Durchlauf: 

Der Schalter steht in der ersten Position. Der Befehl in Zeile 26 lautet: PRINT A. 
Der Schleifer für A zeigt auf 1 — also druckt der Computer 1. 

Dann folgt Zeile 36 PRINT A,B. Der Computer ist noch beim ersten Durchlauf — 
d. h., die Schalterstellung ist noch unverändert. Also druckt der Computer 

1 2. 

Es folgt Zeile 46 PRINT A,B,C. Immer noch im ersten Durchlauf, druckt der 
Computer 

1 2 3. 

Erst jetzt folgt in Zeile 56 der Befehl, das Spiel von neuem zu beginnen. 


Zweiter Durchlauf: 

In unserem Schalterbeispiel bedeutet der Befehl in Zeile 50 GO TO 16, daß der 
Schalter in die nächste Position gedreht wird. Folglich druckt der Computer auf 
den Befehl in Zeile 26 PRINT A nun den Wert 16. Und so geht es weiter! 


Dritter Durchlauf: 

Sobald der Computer wieder Zeile 50 erreicht, bedeutet das für unser Bildbei- 
spiel, eine Schalterstellung weiter zu schalten. 

Schaltfinger A zeigt auf 100 

Schaltfinger B zeigt auf 266 

Schaltfinger C zeigt auf 366 

Und das Spiel läuft von neuem ab! 


Wenn Sie das durch ein paar einfache Übungen noch vertiefen möchten, dann 
löschen Sie in Ihrem Programm die Zeilen 30 und 46 (ich unterstelle, daß Sie 
inzwischen wissen, wie das geht!). Das Ergebnis wird sein: 

1 

10 

106 

Schreiben Sie nun: 

20 PRINT C 

Der Computer wird ausgeben: 

3 

30 

300 

Bleiben Sie zum Verständnis immer dicht an Ihrem Schalterbeispiel (Abb. 19). 
Nun machen Sie etwas Neues: 


16 READ A 
26 PRINT A 
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Darauf wird der Computer antworten: 
1 

2 

3 

10 

20 

30 

100 

200 

300 


Immer Ihre Schalterbeispiele fest im Blick, werden Sie wohl dahinterkommen, 
wie das Zusammenspiel von READ... und DATA... funktioniert! 


® Mit READ... bestimmen Sie, welche Variablen-Namen die Daten in der Datenli- 
ste erhalten sollen. 

® Bei READ A... sind ALLE Daten nacheinander A... das entspricht unserem 
einpoligen Schalter. 

® Bei READ A,B haben Sie den zweipoligen Schalter kreiert. Jetzt wird definiert: 
erstes Datum = A, zweites Datum = B. Beim nächsten Durchlauf dann: drittes 
Datum = A, viertes Datum = B, usw. 

Hoffentlich sind nun alle Klarheiten beseitigt? 


Was haben Sie dazugelernt? 


© Das Zusammenspiel der kombinierten Befehle READ... DATA... 

© In meinen Beispielen hatte ich die Datenlisten immer an das ENDE des Pro- 
gramms gestellt. Wo Sie die Daten unterbringen — an den Anfang des Pro- 
gramms, irgendwo in die Mitte oder — wie ich - an das Ende - ist dem Computer 
gleichgültig. 
Immer wird er das ganze Programm nach DATA... absuchen, sobald er auf den 
Befehl READ... trifft. Ich will Sie nicht beeinflussen — aber mir gefallen die 
Daten am Ende eines Programms am besten; ich halte das für übersichtlicher! 

® Wieviele Daten Sie in einem Programm unterbringen, hängt allein von der 
jeweiligen Aufgabe und davon ab, ob Ihr Computer genügend Speicherplatz hat. 
Ich habe mich für die Beispiele mit wenigen Daten begnügt. Ich hätte auch 
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zunächst in eine Zeile so viele Daten schreiben können, wie darauf (Bild- 
schirm!) Platz haben. Reicht das nicht aus, könnte man eine neue Zeile voll- 
schreiben. Und noch eine. Und noch eine... 


Wichtig ist, daß Sie immer zwischen zwei Daten ein Komma machen! 

Nach dem letzten Datum in einer DATA-Zeile darf kein Komma stehen! 

Bei EINER Variablen (READ A) liest der Computer ALLE - beispielsweise 100- 
gespeicherten Daten nacheinander als A. 

Bei MEHREREN Variablen in der READ...-Zeile, zum Beispiel READ A,B,C,D, 
müssen Sie in der DATA-Liste mindestens VIER - und zwar je ein Datum für A, 
B, C und D - anbieten. Oder allgemein: Die Anzahl der Daten muß durch die 
Anzahl der Variablen in der READ...-Zeile teilbar sein. 

Wenn Sie beispielsweise die Variablen READ A,B,C,D festlegen, und nur 39 
Daten zur Verfügung stellen, dann findet der Computer 9 mal Daten für alle vier 
Variablen. Beim 10. Durchlauf findet er nur ein Datum für A, Bund C - das 46. 
fehlt. Er nimmt sich dann die Freiheit, eigenmächtig für das fehlende, 46. Datum 
den Wert 6 zu setzen! 

(Manche Computer geben hier auch eine Fehlermeldung!) 
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Ganz zu Anfang hatte ich Ihnen beigebracht, daß nicht nur Zahlen Daten sind — 

auch Strings können vom Computer als Daten erkannt und verarbeitet werden. 

Machen wir die Probe auf das Exempel: 

10 READ A$ 

26 PRINT A$ 

30 GO TO 16 

46 DATA "SONNTAG”,”MONTAG”,"DIENSTAG”,”MITTWOCH”, 
”DONNERSTAG” 

56 DATA ”FREITAG”,”’SONNABEND” 

Der Computer gibt aus: 

SONNTAG 

MONTAG 

DIENSTAG 

MITTWOCH 

DONNERSTAG 

FREITAG 

SONNABEND 


Zahlen und Strings können auch gemischt angeboten und verarbeitet werden — 
wenn Sie darauf achten, daß in der READ...-Zeile der Computer entsprechend 
vorbereitet wird. 

Versuchen Sie es mal mit: 


10 READ A$,A 

26 PRINT A$,A 

30 GO TO 16 

40 DATA "SONNTAG =",1,’MONTAG =",2 

50 DATA "DIENSTAG =",3,”MITTWOCH =",4 
66 DATA "DONNERSTAG =",5,”"FREITAG =",6 
76 DATA "SONNABEND =",7 


Der Computer wird Ihnen liefern: 


SONNTAG = 1 
MONTAG = 2 
DIENSTAG = 3 


MITTWOCH = 4 
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DONNERSTAG = 5 
FREITAG = 6 
SONNABEND = 7 


Hier biete ich Ihnen nun ein Programm, das Ihnen nicht nur noch einmal 
READ...DATA... vorführt. Es zeigt Ihnen auch, daß man innerhalb von READ... 
DATA... mehr tun kann, als bloß rechnen - wie wir das etwa in den Beispielen mit 
PRINT A*2.5 - exerziert hatten. 


16 PRINT "NAME”,„”ALTER” 
260PRINT’ == = = = = = = = = = = =- =- = - - - =- =- =- = = =- =- - - - - — 


=)», 


25 READ N$ 

36 IF N$ = ”"ENDE” THEN PRINT "ENDE DER LISTE” 
46 READ A 

56 IF A<20 THEN PRINT N$,,A 

60 GO TO 25 

76 DATA ”"DANIEL”,2,”EMIL”,30 

80 DATA "ILSE”,19,”’KLAUS”,23 

90 DATA "PETER”,17,”’FRANZ”,22 

100 DATA ”KARL”,13,”SABINE”,1 

116 DATA "WERNER”,35,”ENDE” 


Der Computer wird Ihnen jetzt auf den Schirm zaubern: 


NAME ALTER 
DANIEL 2 
ILSE 19 
PETER 17 
KARL 13 
SABINE 1 


ENDE DER LISTE 
Sie erlauben mir, daß ich Ihnen dieses Programm noch einmal Schritt für Schritt 
erkläre? 
Zeilen 16, 26: Ist wohl klar? Ich weise noch einmal auf die drei Kommas hin; 
was bewirkt, daß der Ausdruck in der ersten und vierten Spalte 


erfolgt! 
Zeile 25: Sie befehlen, die Datenliste nach N$ zu durchforschen. 
Zeile 30: Hier sagen Sie ihm, „wenn Du, mein Lieber, beim Durchforschen 


der Liste auf ENDE stößt, dann schreibe ENDE DER LISTE“! 
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Da der Computer schrittweise durch das Programm geht - Sie 
sollten sich an den Stufenschalter erinnern! — wird er "”ENDE” erst 
als letztes N$ finden. Sie haben das ja auch aus gutem Grund an 
das Ende gesetzt! 
Zeile 40: ..und nun soll der Computer in der Liste das A raussuchen! 
Zeile 50: Hier befehlen Sie: ”sobald Du bei Deiner Suche ein A findest, das 
kleiner als 26 ist, dann schreibe mir dieses A und das dazu 
gehörende N$ hin!”. 
Zeilen 36, 56: Früher hatten wir oft geschrieben: 
106 IF... THEN 110 
110 PRINT... 
Hier sind die beiden Zeilen zu einer zusammengezogen. 
Zu: ..IF...THEN...PRINT... 
Man lernt halt immer noch dazu! 


Und nun beobachten wir den Computer bei der Arbeit! Er findet in der ersten 
Datenzeile "DANIEL”,2 

Er erkennt ”DANIEL” ist NICHT ”ENDE”... 

und 2 IST kleiner als 20... 

Also sind die Voraussetzungen erfüllt, DANIEL 2 

hinzuschreiben. 

Beim nächsten Durchlauf findet er ”EMIL”,30. 

Seine Prüfung ergibt: ”EMIL” ist NICHT ”ENDE”..., aber 

30 ist NICHT kleiner als 26... 

Also wird er befehlsgemäß darauf verzichten, etwas aufzuschreiben. Und so 
hangelt sich unser Apparat durch das Programm. Bis er findet: N$ IST GLEICH 
”ENDE” — und prompt schreibt er: ENDE DER LISTE. 

Und weiter geht es mit dem Dazulernen! Bisher hatten wir mühevoll eine 
Datenliste aufgestellt, und diese nur einmal nach ganz bestimmten Befehlen (wie 
PRINT, oder PRINT...*2.5) durcharbeiten lassen. Nun lernen Sie, daß man EINE 
Datenliste auch MEHRMALS - und zwar immer auf andere Weise — durcharbeiten 
lassen kann. Dazu führen wir einen neuen Befehl ein: RESTORE. 

Eine wörtliche Übersetzung bringt uns nicht viel; übersetzen Sie das sinngemäß 
mit: „Gehe noch einmal in die Datenliste zurück!“ Sie lernen das an folgendem 
Programm: 

NEW 
5 PRINT”ERSTER LAUF DURCH DIE DATENLISTE” 


160 READ A,B,C,D 
26 PRINT A, A*16 
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30 PRINT B,B*16 

46 PRINT C,C*16 

50 PRINT D,D*16 

55 PRINT”ZWEITER LAUF DURCH DIE DATENLISTE” 

58PRINT” === === === === === = === === === ===== 
66 RESTORE 

76 PRINT A,A*106 

80 PRINT B,B*100 

96 PRINT C,C* 106 

1060 PRINT D,D*106 

116 PRINT”DRITTER LAUF DURCH DIE DATENLISTE” 

126PRINT’’ === === === === === == === ========= 


130 RESTORE 

146 PRINT A,A* 1006 
156 PRINT B,B*1060 
166 PRINT C,C* 1000 
176 PRINT D,D* 1060 
186 DATA 1,2,3,4 


Dieses Programm führt der Computer wie folgt aus: 
ERSTER LAUF DURCH DIE DATENLISTE 


Pove 
(48) 
S 


1 100 
2 200 
3 306 
4 406 
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Dieses Programm erklärt sich zwar (fast) von selbst — aber ich will Ihnen trotzdem 
noch einige Kommentare geben. 

Zeilen 16-58: Die sind so, wie Sie das bis jetzt hinreichend geübt haben. 

Zeile 60: Hier taucht zum ersten Mal RESTORE auf. 


Wie Sie an dem Computerausdruck erkennen, geht der Computer 
noch einmal an den ANFANG der Datenliste. (Er war in Zeile 50 ja 
schon an deren ENDE!) RESTORE stellt also — um beim Schalter- 
beispiel zu bleiben — den Schaltfinger wieder in die Ausgangspo- 


sition. 

Zeilen 76-126: ABER: Mit den ALTEN Daten arbeitet er jetzt die NEUEN Befehle 
ab! 

Zeile 130: Ein erneutes RESTORE scheucht ihn noch einmal - jetzt zum 


dritten Mal - in die Datenliste und veranlaßt die Abarbeitung der 
Befehle 146-170. 


Was haben Sie dazugelernt? 


In dem READ...DATA...-Befehl akzeptiert der Computer auch Strings als 
Daten. 

Sie können Strings und Zahlen gemischt in einem Programm als Daten 
verwenden. 

Numerische Variable hatte ich in der DATA-Liste „nur so“ hingeschrieben. 
...DATA 1,2,3 

Das ist in Ordnung! 

Enthielt die DATA-Zeile Strings (Namen), dann hatte ich diese in ” ” gesetzt. 
Das war eine Vorsichtsmaßnahme; bei den meisten Computern können Sie 
darauf verzichten. 

...DATA INGE,KLAUS,DANIEL 

Enthält der String Operationszeichen, dann sollten Sie ihn in jedem Falle in 
” ” setzen! 

...DATA ”1.1.84”,”12.5 DM”,’BESTELL.-NR.” 

Ordnen Sie die Daten in der DATA-Zeile so an, wie sie in der READ-Zeile 
gelesen werden sollen! 

...READ A,A$ 

..„.DATA 1,DANIEL,2,KLAUS,3,ILSE 
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® RESTORE veranlaßt den Computer, nach Abarbeitung der Datenliste in diese 


zurückzukehren und mit den gespeicherten Daten nach neuen Befehlen wie- 
derholt zu arbeiten. 
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Ich glaube, Sie haben mal wieder eine kleine Entspannung verdient! Trotzdem 
werden Sie etwas dazulernen, nämlich: was ist ein Unterprogramm? 

Wie der Name schon sagt: ein Programm, das sie UNTER ein anderes, unter ein 
HAUPT-Programm mischen! Am Beispiel lernen Sie das am schnellsten! Geben 
Sie ein: 


16 PRINT”IN MUENCHEN STEHT EIN HOFBRAEUHAUS” 

Und nun geht es ab ins Unterprogramm! Sie veranlassen das mit einem besonde- 
ren Befehl: 

GOSUB..... das heißt: gehe ins UNTER...- ins SUB...-Programm! 


Also: 

20 GOSUB 206 

GOSUB allein genügt nicht. Sie müssen dem Computer ein Ziel geben, Sie 
müssen ihm sagen, wo das Unterprogramm steht. Im Beispiel in Zeile 260! Dort 
möge stehen: 

266 PRINT”’EINS,ZWELGSUFFA!” 

Sie haben also in Zeile 260 befohlen, der Computer soll das nur für Eingeweihte 
korrekt Sprechbare hinschreiben. Das tut der Computer auch, wie Sie gleich 
sehen werden. Aber dann müssen Sie ihm natürlich sagen, wie es weitergeht. 


Sie sagen: 

216 RETURN das heißt: Gehe zurück! In diesem Fall ins Hauptprogramm. An 
dem basteln wir wie folgt weiter: 

36 PRINT”DA SCHAUT SO MANCHES MADEL RAUS!” 


Und weil es so schön war: 

46 GOSUB 200 

Weiter kenne ich den Text nicht. Und ehe ich mich mit den Bayern anlege, weil 
ich mich an ihrem Liedgut vergreife, fahre ich fort: 

56 PRINT 

66 PRINT”WIE HEISST DER REFRAIN?” 

76 PRINT 

80 GOSUB 200 
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85 PRINT 

96 PRINT”’WEIL DAS SO SCHOEN IST : NOCH EINMAL !!” 
95 PRINT 

100 GOSUB 206 

116 END 

Bitte tippen Sie doch einmal LIST, und schauen Sie sich dieses Superprogramm 
an! Und nun lassen Sie es abfahren! 

Sie werden lesen: 

IN MUENCHEN STEHT EIN HOFBRAEUHAUS 
EINS,ZWELGSUFFA! 

DA SCHAUT SO MANCHES MADL RAUS 
EINS,ZWEILGSUFFA! 


WIE HEISST DER REFRAIN? 
EINS,ZWELGSUFFA! 
WEIL DAS SO SCHOEN IST : NOCH EINMAL !! 


EIN,ZWELGSUFFA! 


Ich denke, Sie haben verstanden, wie das geht? Natürlich können Sie mit GOSUB 
auch etwas Ernsthaftes betreiben! Auf der nächsten Seite noch eine Abb. zum 
Prinzip GOSUB...RETURN (Abb. 20). 


Was haben Sie dazugelernt? 


® ...den Befehl GOSUB - „gehe ins Unterprogramm“! 

® Sie müssen nach GOSUB dem Computer ein Ziel geben; sie müssen ihm durch 
eine Zeilen-Nummer sagen, wo das Unterprogramm beginnt. 

® Ob Sie GO TO getrennt- oder GOTO zusammenschreiben, ist dem Computer 
egal. GOSUB müssen Sie als ein Wort schreiben! 

® Ihr mit GOSUB... gestartetes Unterprogramm war im Beispiel nur ein Einzeiler. 
Sie können das Unterprogramm je nach Erfordernis beliebig lang machen. 

® Ist das Unterprogramm zu Ende, müssen Sie es abschließen! Abgeschlossen 
wird ein Unterprogramm mit RETURN. 

® Betrachten Sie die Abb. 20! Dort erfahren Sie, WOHIN der Computer auf den 
Befehl RETURN zurückkehrt! 
Er geht in die Zeile, die derjenigen folgt, mit der Sie ihn losgeschickt hatten! 
Im Beispiel hatten Sie ihn in den Zeilen 26, 40, 80 und 166 ins Unterprogramm 


130 


30 Was ist ein Unterprogramm? 


Hauptprogramm 


1... 


; 1.SPRUNG von 28 
20 GOSUB 2B 


3... 


2.SPRUNG von 4 


3. SPRUNG von Bf 


80 GOSUB 204 


1 Unterprogramm 


4.SPRUNG von 189 


100 GOSUB 2A 
118 END 


218 RETURN 


RÜCKSPRUNG 1 2 3 4 
zu 38 5g 85 119 


Abb. 20 Von einem Hauptprogramm aus kann ein Unterprogramm von verschiedenen Stellen ange- 
sprungen werden. Mit Return findet es automatisch nach Hause ins Hauptprogramm zurück 


geschickt. Dieses war mit RETURN korrekt abgeschlossen: der Computer ist in 
die jeweils folgende Zeile 30, 50, 85, 116 zurückgekehrt. 

® Wenn der Computer aus dem Unterprogramm zurück ist, muß er in der betref- 
fenden Zeile vorfinden, wie das Hauptprogramm sinnvoll weitergeht! 
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Ob Sie am nächsten Wochenende im Lotto gewinnen, kann Ihnen der Computer 
leider nicht ausrechnen. Weil das nämlich vom Zufall abhängt. Sicherlich 
haben Sie schon einmal im Fernsehen die „Ziehung der Lottozahlen“ beobach- 
tet? Dort werden aus einem Haufen von 49 Bällen, die mit Zahlen von 1 bis 49 
bedruckt sind, durch eine kunstvolle Maschine nacheinander 6 (+1) Bälle 
herausgefischt. Und wenn Sie genau hinsehen, ist es wirklich ZUFALL, wel- 
chen Ball die Maschine erwischt. 

Ein anderes Kapitel: Vielleicht haben Sie schon mal — außerhalb unserer 
Lektionen — mit einem oder gegen einen Computer gespielt? Dann werden Sie 
vermuten, daß ein Computer auch mit Zufällen arbeiten kann — er kann 
gewissermaßen auch aus einem „Haufen“ von Zahlen eine zufälligherausholen. 
Dafür gibt es einen speziellen Befehl: 

RND(...) 
RND ist eine Abkürzung für RaNDom; 
”Random” heißt ZUFALL. 


Leider gehen die einzelnen Computer mit dem RND(...)-Befehl auf unterschied- 
liche Weise um. Wir bleiben hier bei unseren Testkandidaten CPC 464 und C-64, 
die den Befehl (fast) auf die gleiche Weise handhaben. 

Wenn Sie einen anderen Computer besitzen, versuchen Sie zunächst, ob Sie mit 
den gleich beschriebenen Programmen zu gleichen Ergebnissen kommen. Falls 
nicht, dann konsultieren Sie Ihr Handbuch und experimentieren ein wenig 
herum! 

Damit Sie den Befehl kennenlernen, habe ich Ihnen ein kleines Programm 
gebastelt. 


5 CLS 

10 FOR X = 1 TO 10 
20 PRINT X,RND(0) 
30 NEXT X 

40 STOP 

50 CLS 

60 FOR X = 1 TO 10 
70 PRINT X,RND(1) 
80 NEXT X 

85 STOP 
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90 CLS 

100 FOR X = 1 TO 16 

116 A = INT(100 x RND(1)+1) 
120 PRINT X,A,Ax3 

130 NEXT X 


Wenn Sie dieses Programm starten, werden Sie erleben: 


© Der CPC 464 wird Ihnen 10mal die gleiche Zahl — die zwischen ® und 1 liegt — 
ausgeben. Der C-64 gibt Ihnen 16 verschiedene Zahlen, die ebenfalls zwischen 
ö und 1 liegen. 

© Das Programm läuft nur bis zur Zeile 140. Dort steht STOP. Raten Sie einmal, 
was das bedeutet? Wenn Sie das Programm ab Zeile 56 weiterlaufen lassen 
wollen, geben Sie ein: CONT, gefolgt von ENTER bzw. RETURN. 

® Haben Sie’s getan? Dann erhalten Sie jetzt vom CPC 464 10 verschiedene 
Zahlen, allerdings immer noch zwischen ® und 1. Beim C-64 hat sich nichts 
geändert. 

© Und noch einmal: CONT, ENTER bzw. RETURN! 
Sie erhalten nun in der mittleren Spalte ganze Zahlen, die „zufällig“ zwischen 
1 und 100 liegen. Das ist durch die „Formel“ in Zeile 106 erreicht worden; 
diese Formel sollten Sie sich merken! 
Daß man die so erzeugten Zufallszahlen wie numerische Variable behandeln 
und mit Ihnen auch „rechnen“ kann, sehen Sie an der Ausgabe der 3. Spalte 
bzw. an Programmzeile 120. Dort ist die erzeugte Zufallszahl mit 3 multipli- 
ziert worden. 


Wenn der Computer schon nicht ausrechnen kann, mit welchen Zahlen Sie im 
Lotto gewinnen — vielleicht kann er Ihnen aus seinem „Zufallshut“ ein paar 
Zahlen für Ihr nächstes Lottospiel zaubern? 

Geben Sie ein: 


10 FORX = 1TO7 
20 PRINT INT(49«RND(1)+1) 
30 NEXT X 


Wenn Sie dieses Programm starten, wird Ihnen der Computer 7 zufällig 
gewählte Zahlen (Zeile 10!!) hinschreiben, die zwischen 1 und 49 liegen. Siehe 
Zeile 20 ...RND(49x...!! 

Spielen Sie das einige Male, dann werden Sie zwei Erfahrungen machen: 


® Beim zweiten Vorschlag können Zahlen enthalten sein, die Ihnen der Compu- 
ter schon beim ersten Mal serviert hat. DAS IST ZUFALL! 
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© Es kann aber auch in EINEM Vorschlag eine Zahl zwei- oder sogar mehrmals 
„gezogen“ werden. DAS IST UNSCHÖN! 


Offensichtlich arbeitet der Computer nicht wie die Lottozahlenziehmaschine. Die 
zieht zwar — wie Sie beobachten können - eine Zahl zufällig, legt die gezogene 
Zahl aber zur Seite! Der Computer aber schmeißt die gezogene Zahl wieder in den 
Hut! Naheliegend, daß er diese — auch zufällig - nach dem „Mischen“ beim 
nächsten oder übernächsten Mal wieder in der Hand haben kann! 

Also: so läßt sich das Ding als Lotto-Spiel-Berater nicht verwenden! Vergessen 
Sie das Problem für den Augenblick; wir kommen darauf später zurück. 

Stattdessen wollen wir mit dem Computer knobeln. Das macht man bekannt- 
lich mit zwei Würfeln, deren Augenzahl sich nach dem Wurf - falls Sie nicht 
mogeln - auch zufällig ergibt. Mit jedem Wurf kann ein Würfel die AugenzaHhl 1, 
2, 3, 4, 5 oder 6 erreichen. Die Gesamtaugenzahl beider Würfel ist dann minde- 
stens 2 (wenn beide Würfel 1 zeigen) und maximal 12 (wenn beide Würfel 6 
zeigen). 


Wir machen uns ein kleines Programm: 

NEW 

5 CLS 

10 A = INT (6*RND (1) + 1) 

20 B = INT (6*RND (1) + 1) 

Hier ist also A der erste, B der zweite Würfel. Sie lernen „zufällig“, daß Sie in 
einem Computerprogramm auch zwei (oder mehrere) Zufallsgeneratoren anwer- 
fen können. 


38N=A+HB 


Mit dieser Zeile bildet der Computer jeweils die Summe der mit beiden Würfeln 
A und B gezogenen Augenzahlen. 


40 PRINT’AUGENZAHL”,„"AUGENZAHL” 
56 PRINT”’WUERFEL 1”,,”"WUERFEL 2” 


65 PRINT A,,B 

76 PRINT 

80 PRINT”’GESAMT-AUGENZAHL ”; N 
96 FOR X = 1 TO 1060 : NEXT 

100 GO TO 5 


Wenn Sie dieses Programm starten, können Sie eine Weile beobachten, wie der 
Computer zufällige Zahlen zwischen 1 und 6 für jeden Würfel ausgibt. Es kann 
sein, daß er zum Beispiel dreimal hintereinander für Würfel A die 2 zieht. Das ist 
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ZUFALL! Sie können schließlich beim Würfeln auch dreimal hintereinander die 
2 werfen! Erst wenn Sie das Spiel millionenfach spielen — was ich Ihnen nicht 
empfehlen möchte - werden Sie erkennen, daß für jeden Würfel alle 6 Zahlen fast 
gleich oft gezogen werden! 

So ist das Spiel natürlich langweilig. Sie sollten mit Ihrem Computer Spielre- 
geln vereinbaren! Wie wär’s mit folgenden: 

Wenn der Computer zwei „Einsen“ hat, soll ER gewinnen! Ferner — wenn der 
Computer zwei „Sechsen“ hat, soll er auch gewinnen. In allen anderen Fällen 
gewinnen Sie! 


Das programmieren wir so: 


85 IFN = 2 THEN 102 
86 IF N = 12 THEN 102 


96 GOSUB 206 

16060 GO TO 5 

162 PRINT 

164 PRINT 

166 PRINT 

116 PRINT'ICH HABE GEWONNEN!!” 


126 GOSUB 200 

130 GO TO 5 

200 FOR X = 1 TO 1066 : NEXT 
216 RETURN 


Das ist nicht besonders fair! Der Computer hat viel weniger Chancen als Sie! 
Verbessern Sie doch einmal die Spielregeln derart zu seinen Gunsten, daß Sie 
beschließen: 

Wenn für N eine gerade Zahl herauskommt, dann haben SIE gewonnen. 

Wenn für N eine ungerade Zahl herauskommt, dann hat der Computer ge- 
wonnen! 

Da sollten Sie natürlich wissen, wie man per Computer eine Zahl daraufhin 
abklopft, ob sie gerade (das heißt: durch 2 „glatt“ teilbar) ist oder nicht! Sie selbst 
sehen das mit bloßem Auge! 

Schieben wir das zunächst einmal ein! Nehmen Sie einige ungerade Zahlen N — 
z.B. 3 oder 7 oder 9. Dann ist N/2 1.5 oder 3.5 oder 4.5. 

Der INT-Teil dieser Zahlen ist dann 1 oder 3 oder 4. Damit ist jeweils der INT-Teil 
kleiner als N/2 (klar?). Computergerecht könnten Sie definieren: 


..IF INT(N/2)<N/2 THEN... 
Sie ändern sinngemäß Ihr Programm: 
85 X=N/2 


135 


31 Lauter Zufälle! 


86 IF INT(X)<N/2 THEN 102 

88 PRINT”"SIE HABEN GEWONNEN!!” 

Und damit wünsche ich Ihnen ein paar erholsame Minuten, bevor der Ernst von 
Basic wieder beginnt! 


Was haben Sie dazugelernt? 


RND... ist die Abkürzung von RANDOM; RANDOM heißt Zufall. 
Sie können sich mit dem RND...-Befehl durch den Computer Zahlen zufällig 
„ziehen“ lassen. 


Beim Arbeiten mit RND... sollten Sie im Kopf haben, daß der Computer jede 
gezogene Zahl zurück in den Hut wirft. Wo das stört — und es hat uns 
beispielsweise so gestört, daß wir darauf verzichtet hatten, den Computer als 
Tipgeber für Lottozahlen einzusetzen — müssen Sie durch eine Programmva- 
riante dafür sorgen, daß eine einmal gezogene Zahl ausgesondert wird! Davon 
später! 
Sie haben so nebenbei gelernt, wie man eine Zahl daraufhin prüft, ob sie gerade 
oder ungerade ist. 
Im Beispiel hatten Sie sich für die ungeraden Zahlen X interessiert und folgen- 
des Programm dafür gewählt: 
Erster Schritt: 
Die zu untersuchende Zahl wird durch 2 geteilt. 
Zweiter Schritt: 
Es wird geprüft, ob der INT-Teil von X/2 kleiner ist als X/2. Ist das der Fall, dann 
ist X ungerade. 
Also 1606 Z = X/2 

1016 IF INT(Z)<(X/2) THEN... 
Sie hätten natürlich auch untersuchen können, ob die fragliche Zahl eine 
gerade Zahl ist. (Sie kann ja entweder nur das eine oder das andere sein!) 
Dafür gibt es eine elegantere, kürzere Programm-Variante: 
Beispiel: Y = 4 oder 6 oder 12 
Dann ist INT(Y/2) GLEICH Y/2, nämlich 2 oder 3 oder 6! 
Also 1666 IF INT (Y/2) = Y/2 THEN... 
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Mit den Bänden „Basic für Einsteiger“ und „Basic für Aufsteiger“ haben Sie sich 
viel notwendiges und wichtiges Wissen angeeignet. Dieses Wissen mündet nun in 
die praktische Arbeit mit dem Computer ein. Und bei dieser praktischen Arbeit 
sind Ihnen die verschiedensten Bände der Franzis Computer-Bibliothek behilf- 
lich, bzw. bald unentbehrlich. Das sind Software-Sammlungen aus denen gewis- 
sermaßen nur noch abgeschrieben werden muß. Für ein bestimmtes Thema oder 
einen begrenzten Problemkreis sind die Hintergründe dafür präzise aufbereitet 
und in knappen Schritten dargestellt. 


Wir empfehlen zum Beispiel: 


Basic: Dateien, Listen und Verzeichnisse 


Eine Software-Sammlung in Basic. Von Rudolf Busch. 104 Seiten. 

ISBN 3-7723-7422-0 

Der Leser versteht es mit Hilfe dieses Bandes problemlos Dateien, Listen und 
Verzeichnisse anzulegen und zu verwalten. Das ist eine Arbeit, die manuell 
niemand gerne tut. 


Basic: Sortierprogramme 

Eine Software-Sammlung in Basic. Von Rudolf Busch. 76 Seiten mit 36 Abbil- 
dungen. 

ISBN 3-7723-7451-4 

Zählen, Ordnen, Sortieren: Wem geht das nicht auf den Geist! Ein Computer 
macht es gerne, wenn, ja wenn man es ihm richtig beibringt. 


Basic: Alles über PEEK und POKE 


Eine Software-Sammlung in Basic. Von Heiko Requardt. 70 Seiten. 9 Abbil- 
dungen. 

ISBN 3-7723-7531-6 

PEEK- und POKE-Befehle sind Leckerbissen für den Homecomputer-Anwender. 
Mit Hilfe dieser Sonderbefehle wird dem Rechner gewissermaßen unter die 
Tasten geschaut. Sein Innenleben wird erforscht und zum Leben erweckt, ja er 
kann manipuliert werden. 

Dieses Buch bietet für viele Computer-Freaks interessante Überraschungen. 


Franzis-Verlag, München 
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Sicherlich werden Sie darauf brennen, nun wieder ein paar nützliche Programme 
auszuarbeiten. Diese möchte ich jedoch mit einer Vorrede einleiten. 

Bei vorangegangenen Programmen hatten Sie oft erlebt, daß die Lösung einer 
Aufgabe mit einem Taschenrechner schneller — oder mindestens genau so schnell 
— wie mit dem Computer zu erledigen ist. Sieht man einmal von dem Komfort ab, 
den der Computer durch seine Fähigkeit bietet, auch Texte zu drucken und 
Strings zu verarbeiten, dann ist das in der Tat so. 

Seine Fähigkeiten entfaltet der Computer am eindrucksvollsten, wenn Sie ein 
mühsam erarbeitetes Programm oft ausnutzen können. Dazu kommt noch etwas 
anderes: ich gehe davon aus, daß Sie einen Computer besitzen, der für die 
EINGABE über eine Tastatur, für die AUSGABE über ein Datensichtgerät verfügt. 
Das aber ist leider nur das halbe Glück und reicht meist für die professionelle oder 
kommerzielle Anwendung des Computers nicht aus. 

Für die Ausgabe wäre ein Drucker nützlich, damit man das Ergebnis der 
Computermühen schwarz auf weiß besitzt. Und für die Eingabe wäre ein größerer 
Speicher - für Daten und Programme - erwünscht. Ein Speicher, wie er beispiels- 
weise als „Floppy Disc“ zu haben ist. Zwar bieten Personal-Computer die Mög- 
lichkeit, Programme auf Cassettenrecordern abzulegen. Aber das ist ein zwar 
preiswerter, auf die Dauer jedoch wenig befriedigender Behelf. Wir wollen jedoch 
hier nur das Programmieren einüben — und dazu reicht Ihr Gerät allemal aus. 
Ich wollte das nur einmal gesagt haben. 


32.1 Die Mehrwertsteuer wird erhöht 


Seine Schnelligkeit erlaubt es dem Computer, eine große Menge von Daten in 
kurzer Zeit zu verarbeiten. Eine Preisliste enthält beispielsweise eine Menge 
Daten; das nächste Beispiel führt den Computer als „Datenverarbeiter“ vor. 
Nehmen Sie an, Sie haben eine Preisliste mit den Endverbraucherpreisen Ihrer 
Produkte. Diese enthalten bekanntlich die Mehrwertsteuer - in unserem Falle von 
13 %. Und weil Vater Staat die MwSt. auf 14% erhöht hat, müssen Sie Ihren 
Kunden eine neue Preisliste zur Verfügung stellen. 
Auch dazu geht es zunächst nicht ohne ein wenig Rechnen: 
— Wenn A der Preis ist, der 13 % MwSt. enthält... 
— dann ist der Ausgangspreis, auf den diese 13 % aufgeschlagen wurden: A/1.13 
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-und der neue Preis -— nun mit 14 % MwSt. — dann nach Adam Riese 
(A/1.13)*1.14. 
An dieser Stelle zunächst ein Tip: Bei der Anwendung - aber auch bei der 
computergerechten Aufbereitung — von Formeln können sich Fehler einschlei- 
chen, die dann zwangsläufig zu einem falschen Ergebnis führen. Es ist immer sehr 
nützlich, durch ein einfaches Zahlenbeispiel, das man zur Not im Kopf rechnen 
kann, Formel und computergerechte Umwandlung auf Richtigkeit zu prüfen. Ich 
habe das hier gemacht — und empfehle es Ihnen wärmstens zur Nachahmung. 
Und zwar habe ich in der Datenliste des folgenden Programms als erstes Datum 
A = 113 gewählt. A/1.13 ist dann 100 — das ist also der Ausgangspreis, auf den die 
13% MwSt. erhoben waren. Wenn meine angegebenen Formeln richtig sind, 
dann muß bei einem Aufschlag von 14 % MwSt. 114 herauskommen. Sie können 
sich gleich davon überzeugen. 
Wenn also dieses Kontrollbeispiel richtig ist, 
—- dann sind die Formeln richtig, 
— dann ist das Programm richtig. 


Also: bauen Sie beim Programmieren leicht nachprüfbare Kontrollen ein! Und 
nun zum Programm: 

NEW 

26 PRINT’KATALOGPREIS” ,”KATALOGPREIS” 

36 PRINT”’INKL 13% MWST” "INKL 14%MWST” 

4#PRINT”’ == === === = === === === == === ======= 


=...» 


Das ist der Kopf unserer Tabelle. Es geht weiter: 

50 READ A 

66 PRINT A,,(A/1.13)*1.14 

Stop! A ist aus der alten Preisliste sicher auf den Pfennig genau. Aber wenn wir — 
beispielsweise — 125.73 DM mit (.../1.13)*1.14 behandeln, dann kommt bestimmt 
etwas mit mehr als zwei Stellen raus! Wozu können wir inzwischen runden? 
Wenn wir jetzt den Ausdruck A/1.13)*1.14 

mit dem für Runden A=INT(A*160+.5)/100 

kombinieren, möchte ich nicht dafür garantieren, ob das jeder von Ihnen richtig 
hinkriegt. 

Für solche Gefahren bietet der Computer eine einfache Hilfe — und auch die sei 
zur Nachahmung empfohlen: Wir führen eine Zwischengröße (HILFSVARIABLE) 
ein und sagen: 

55 X = (A/1.13)*1.14 
Und nun runden wir einfach X! 
58 X = INT(X*166+.5)/100 
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Wir müssen noch Zeile 60 ändern zu: 


60 PRINT A,,X 
76 GO TO 56 


Jetzt kommt die Preisliste mit den alten Preisen: 


80 DATA 113,150,50,123,1745,2750 
960 DATA 23.50,17.10,.95,33.20,16.70 


Wenn Sie Lust haben, können Sie die Zeilen 86, 90 mit beliebigen Daten 
überschreiben. Oder Ihr Programm mit den Zeilen 106...1060 mit weiteren Daten 
füttern. Uns kommt es nur auf das Prinzip an, wir begnügen uns also mit den paar 
Daten! 

Wollen Sie sich Ihr Programm mal ansehen? Und wollen Sie es mal in Gang 
setzen? 


32.2 Sie beraten Ihre Kunden 


Stellen Sie sich vor, Sie wären Angestellter in einem „Do-it-your-self“-Laden, in 
dem man neben vielem anderem auch Profilbretter für das Vertäfeln von Wänden 
und Decken kaufen kann. Und Sie sind der Chef der Holzabteilung. Es ergeben 
sich dann zwei „Problemfelder“: 

Die Kunden wissen meist nur, wie lang und wie hoch die Wand ist, die sie 
vertäfeln wollen. Und fragen „Wieviel Holz brauche ich dafür?“ Außerdem 
wollen sie möglichst kein Brett mehr kaufen, als unbedingt nötig. Und sie wollen 
natürlich wissen, was das kostet. Sie als Anbieter können schon aus Platz- und 
Kostengründen nicht jedes x-beliebige Längenmaß führen. Nach Ihren Erfahrun- 
gen haben Sie sich für die „Lagerlängen“ entschieden: 


1.5 2 2.5 3 3.5 4 5 Meter 
Diese kosten pro Quadratmeter: 
10.— 11.— 12.— 13.— 13.50 14.50 16.— DM 


Weil Sie nicht am Ende des Jahres einen Haufen Brennholz übrigbehalten wollen, 
ist Ihr Geschäftsprinzip: 


— Sie schneiden die Bretter nicht auf Länge zu. 
— Sie verkaufen die Bretter nur paketweise. Immer 10 Bretter einer Länge sind in 
einer Kunststoff-Folie verpackt. 


Bevor wir für diese Gegebenheiten ein „Kundenberatungsprogramm“ aufstellen, 
wollen wir das Problem noch vertiefen. 
Diese Angaben machen die Kunden (Abb. 21): 
Und so sehen die Bretter im Querschnitt aus (Abb. 22). 
Sie sehen, daß die Bretter bei der Montage ineinandergesteckt werden müssen. 
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Abb. 21 Wenn Bretter in Längsrichtung des Raumes 
verlegt werden sollen, dann bestimmt die Höhe des 
= Raumes die Anzahl der nötigen Bretter 


Abb. 22 Mit einem Profilbrett können Sie 9,5 cm Wand- 
höhe abdecken 


Deswegen ist zur Bedeckung der gleichen Fläche mehr Holz nötig, als wenn die 
Bretter nebeneinander gelegt werden würden. 

Sie berücksichtigen diesen Umstand durch einen Zuschlag von 5% (in Zeile 
15). Versuchen Sie zunächst herauszufinden, wieviel Pakete Bretter — unabhängig 
von der Länge des Raumes - Ihr Kunde benötigt. Dazu müssen Sie von der Höhe 
des Raumes ausgehen: 

NEW 
5 INPUT”HOEHE DES RAUMES”;H 


Da jedes Brett 10 cm oder .1 m „hoch“ ist, ergibt sich die Zahl der Bretter zu: 


1Z2=H.ı1 

15 Z = Z*1.05 

Wenn Sie jetzt einmal eine Zwischenrechnung machen, werden Sie z. B. erhalten: 
Höhe des Raumes H: 2 2.25 2.5 Meter 
Anzahl der Bretter 2. 21 23.625 26.25 Stück 


Sie verkaufen aber nicht ein Brett, schon gar nicht 3.625 Stück! Also nur 10 oder 
20 oder 30; also 1 oder 2 oder 3 Pakete. Sie kommen wie folgt auf die Zahl der 
Pakete: 

- teilen Sie die Zahl der Bretter durch 10 

— bilden Sie davon den INT-Teil 

— berücksichtigen Sie die „Zehntel“-Pakete, indem Sie einfach eins zuschlagen! 


Das ergibt: 
26 Z = INT(Z/10) 
38P=Z+1 
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In dem Beispiel oben erhalten Sie: 


Höhe des Raumes H: 2 2.25 2.5 Meter 
Anzahl der Bretter Z: 21 23.625 26.25 Stück 
..Z/10 2.1 2.3625 2.625 
...INT(Z/10) 2 2 2 

Anzahl Pakete P: 3 3 3 


Der Kunde mit dem 2 m hohen Raum kauft also 9 Bretter mehr, als er benötigt. 
Grundsätze sind Grundsätze! Nun wird es Zeit, daß Sie Ihren Kunden nach der 
Länge des Raumes fragen. 

40 INPUT”LAENGE DES RAUMES”;L 

Darauf wird Ihnen fast jeder Kunde eine andere Länge nennen. Sie sind aber 
gebunden an Ihre insgesamt nur 7 Lagergrößen. Sagt der Kunde - beispielsweise — 
L = 1.2, dann wissen Sie, daß der Kunde die nächstgrößere Länge mit 1.5 m 
kaufen sollte. 

50 IF L< = 1.5 THEN 150 


Was < bedeutet, wissen Sie schon: nämlich „kleiner als“. Und <= bedeutet „kleiner 

als ODER gleich“. Um uns das Leben nicht zu schwer zu machen, wollen wir 

unterstellen, daß die Wand des Kunden „gerade“ ist. Wenn er am Fußboden 1.5 m 

mißt, sollen es auch an der Decke 1.5 m sein. Wir können ihm dann bis ein- 

schließlich 1.5 m Zimmerlänge ruhigen Gewissens die Bretter mit L = 15m 

verkaufen. 

Das soll ...L<= 1.5... aussagen. 

Nun antworten Sie dem Kunden: 

1560 PRINT”SIE BENOETIGEN 1.5 M LANGE BRETTER” 

155 END 

Der Kunde will jetzt wissen, was das kostet. Um ihm eine erschöpfende Antwort 

zu geben — und um uns das Programmieren zu erleichtern — fügen wir ins 

Programm ein: 

44 A$ = ”SIE BENOETIGEN ” 

46 B$ = "PAKETE ” 

48 C$ = "ZUM GESAMTPREIS VON DM ” 

Zeile 156 ändern wir noch einmal: 

150 PRINT A$;P;C$;P*1.5*10 

155 END 

Nach dem letzten Semikolon in Zeile 150 steht die Formel für die Preisberech- 

nung: 

—P = Anzahl der Pakete 

— Ein Paket enthält 10 Bretter zu .1 m Breite; das heißt, je lfd./m Brettlänge steckt 
in einem Paket 1 Quadratmeter Holz. 
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—1.5 m war das Paket lang. 

—- Von den 1.5 m langen Brettern kostet laut Ihrer Preisliste der Quadratmeter 
genau 10.- DM. 

- Alles klar? 

Nun kann der Kunde ja auch andere Längen von Ihnen wollen - beispielsweise 

von 3.2 m. Sie müssen also alle Eingaben für L darauf prüfen, wie L zu Ihren 

Lagerlängen steht. Das machen Sie wie folgt: 


60 IF L< = 2 THEN 160 
76 IF L< = 2.5 THEN 176 
80 IF L< = 3 THEN 180 
96 IF L< = 3.5 THEN 190 
106 IF L< = 4 THEN 200 
110 IF L< = 5 THEN 210 


Und nun geben Sie die jeweils richtigen Antworten ein. Wissen Sie noch, warum 
nach jeder Antwort END stehen muß? Wenn nein, dann schauen Sie auf S. 77 
nach. 

160 PRINT A$;P;B$;C$;P*2*11 

165 END 

170 PRINT A$;P;B$;C$;P*2.5*12 

175 END 

180 PRINT A$;P;B$;C$;P*3*13 

185 END 

196 PRINT A$;P;B$;C$;P*3.5*13.5 

195 END 

2600 PRINT A$;P;B$;C$;P*4*14.5 

205 END 

210 PRINT A$;P;B$;C$;P*5*16 

215 END 


Als guter Kaufmann werden Sie natürlich nicht auf die Kunden verzichten 
wollen, deren Wände länger als 5 m sind! Diesen Kunden geben Sie folgenden 
Rat: 


120 GO TO 220 

220 PRINT”LEIDER SIND LAENGEN UEBER 5 M NICHT VORRAETIG” 

2360 PRINT”’BITTE WAEHLEN SIE AUS UNSEREM LAGER” 

246 PRINT”LAGERLAENGE”, "DM/PAKET”,”PREIS FUER”;P;”PAKETE” 

250 PRINT” =========================== === === == == 


2606 PRINT” 1.5 M ”” 15 DM ”, P*15;”DM” 
276 PRINT” 2M ”” 22 DM ”, P*22;”DM” 
280 PRINT” 2.5 M ”” 30 DM ”, P*30;”DM” 
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296 PRINT” 3M ”” 39 DM ”, P*39;”DM” 
300 PRINT” 3.5 M ”” 47.25 DM ”, P*47.25;”DM” 
316 PRINT” 4M ”” 58 DM ”, P*58;”DM” 
320 PRINT” 5M ”” 80 DM ”, P*80;“DM“ 
336 END 


Glauben Sie nicht auch, daß Sie mit diesem Programm Ihren Kunden einen guten 
Service bieten? 


Was haben Sie dazugelernt? 


Noch einmal alle Zeichen für „Relationen“ in einer Übersicht: 


= heißt GLEICH 
<> heißt NICHT GLEICH oder UNGLEICH 
heißt KLEINER ALS 
heißt GRÖSSER ALS 
< oder <= heißt KLEINER ALS ODER GLEICH 
=> oder >= heißt GRÖSSER ALS ODER GLEICH 
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In den folgenden Programmen möchte ich Ihnen den Computer als einen Mitar- 
beiter vorstellen, der Sie berät oder der für Sie Prognosen wagt. 

Das ist ein außerordentlich gefährliches Unternehmen. Nicht etwa, weil Ihr 
Mitarbeiter dazu nicht qualifiziert wäre. Aber vielleicht sind Sie - sein Herr - für 
solche Aufgaben nicht qualifiziert genug. Oder — um es freundlicher zu formulie- 
ren — vielleicht können Sie Ihrem Computer für eine zutreffende Prognose nicht 
genügend exakte Daten liefern. 

Ich muß Sie an das Beispiel von Seite 46 erinnern, wo ich Ihnen hoffentlich 
eindrucksvoll genug vor Augen geführt habe, daß eine Computer-AUSGABE nur 
so gut sein kann, wie die Computer-EINGABE. Wir leben ja in einer Welt, die 
computergläubig sein soll. Was wohl heißt, daß wir alles glauben — wenn es nur 
ein Computer ausgespuckt hat. Daß SIE inzwischen nicht mehr zu solchen 
Einfaltspinseln zählen, hoffe ich stark! 

Wie macht man eine Prognose? Man geht vom IST aus, vom HEUTE (...und 
GESTERN und VORGESTERN); von Daten und Fakten, die man ganz sicher 
kennt. Das können 3 Fakten sein oder 30. Sodann entwirft man kühne Modelle; 
man stellt sich vor, wie die Daten von HEUTE sich in der ZUKUNFT verändern 
KÖNNTEN. (Denn wenn man wüßte, wie sie -— die Daten von HEUTE - sich 
verändern WERDEN, bräuchte man ja keine Prognose!) 

Wird die Weltbevölkerung weiter wachsen? Wenn ja, um wieviel % pro Jahr? 
Linear? Oder exponentiell? Wollen die Leute noch Autos — oder lieber Fahrräder? 
Kurz: man trifft einige Annahmen über Dinge, die man nicht kennt; die sich dazu 
noch gegenseitig — aber man weiß nicht genau wie — beeinflussen können... 
..entwickelt ein teures Computerprogramm... 
und nennt den Mist, den der Computer am Ende ausgibt, dann auch noch 
WISSENschaft! 

Ich habe mich bewußt so rüde ausgedrückt, um Ihnen das - vielleicht noch 
vorhandene - letzte Fünkchen Computergläubigkeit auszutreiben. Was ich meine, 
werden Sie gleich am eigenen Leibe erfahren! 


33.1 Wann sind Sie pleite? 


Wagen wir eine Prognose! Dazu müssen wir — ausgehend von dem, was wir für 
heute sicher wissen — einige Annahmen treffen. Annahmen darüber, wie sich das, 
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was wir wissen, in der Zukunft nach bestem Wissen und Gewissen entwickeln 
wird. Geschwollen ausgedrückt: Wir entwerfen ein „Szenario“. 
Hier ist Ihr Szenario. 


- 


YA 


. Sie sind der Boß einer Firma, die eine Ware zum Stückpreis 100 (DM oder $ 


oder Rubel - das ist hier unerheblich!) herstellt und am Markt anbietet. 


. Auf einem Markt, der im letzten Jahr 100 000 Stück abgenommen hat; Sie 


hatten daran einen Anteil von 20 %. 


. Die Anlagen Ihrer Firma sind überaltert, weil Ihre Geldgeber schon seit Jahren 


kein Geld mehr für Rationalisierungsinvestitionen herausgerückt haben. 


. Sie müssen deshalb Kostensteigerungen über den Preis an den Markt weiterge- 


ben, obwohl Sie wissen, daß Ihre hochmoderne, gut verdienende Konkurrenz 
die Preise eine Weile wird halten können. 


. Ihre Marktforscher haben herausgefunden, daß Ihnen jedes % Preiserhöhung 


einen Verlust an Marktanteil von 2 % „einbringt“. Sie sagen Ihnen ferner, daß 
der Markt seit einiger Zeit um durchschnittlich 3 % pro Jahr gewachsen ist und 
sagen das auch für die nächsten Jahre voraus. 


. Ihr Betriebsleiter eröffnet Ihnen zu allem Überfluß, daß eine Produktion von 


10 000 Stück/Jahr die unterste Grenze dessen ist, was sich noch fertigen läßt, 
ohne gleich aufgeben zu müssen. Sonst... 

Sie entscheiden: die Preise werden für die nächsten Jahre ‚„maßvoll“ um 8% im 
Jahr erhöht. 


Preisfrage an Ihren Computer: Wann sind Sie pleite? Sie wissen, daß Sie das so 
nicht fragen können; der Computer braucht ein Programm. 


Die für das Programm notwendigen Daten müssen Sie aus der obigen Schilde- 


rung 1 bis 7 herausklauben. 
Sie finden dort: 


Bei 1: Ihr Preis ist heute 100 P = 160 
Bei 2: Der Markt war voriges Jahr (!) 100 000 Stück M = 100666 
Ihr Markt-Anteil ist 20 % MA = 20 
Bei 3: sehen Sie, wie schlimm es um Ihre Firma steht. 
Aber „schlimm“ kann der Computer nicht verar- 
beiten. 
Bei 4: steht für Ihren Computer auch nichts, mit dem er 
was anfangen könnte. 
Bei 5: 1 % Preiserhöhung ergibt MA * .98 
8% sind dann: MA * .84 
Bei 6: sagt Ihnen der Betriebsleiter: 
WENN unter 10 000 DANN ist es aus... IF... THEN... 
Bei 7: entscheiden Sie P=P* 1.08 
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Bemerken Sie, wie durch die Verdichtung der bekannten Fakten -— und Mutma- 
Bungen — die Sie im letzten Abschnitt betrieben hatten, bereits das Gerippe des 
Programms hindurchschimmert? Offensichtlich muß es Ziel des Programms sein, 
herauszufinden, wann Ihre Stückzahl unter 10 000 fällt. Sie könnten das so 
formulieren: 


IF S <= 10006 THEN PRINT "PLEITE” 


Um diesen Punkt zu erwischen, müssen Sie aber auch die Stückzahl-Entwicklung 
in den nächsten Jahren verfolgen. 

Zu der Stückzahl gibt es nur eine indirekte Aussage. Nämlich: 
In einem Markt von 100 000 Stück... haben Sie einen Marktanteil von 20 %. Im 
Kopf ausgerechnet, ergibt das 20 000. Per Computer das Gleiche! Nämlich S = 
(M * MA) / 106. 
Tabellieren Sie doch einmal alles, was Sie wissen und wie es sich nach den 
getroffenen Annahmen verändern wird! 


DAS IST HEUTE SO WIRDEES SEIN... 
MARKT M = 103060 ') M=M * 1.03 
IHR ANTEIL MA = 20 MA = MA * .84 
IHRE STÜCKZAHL S = (M * MA)/106 S = (M*MA)/106 ?) 
IHR PREIS P = 106 P=P* 1.08 


Zu ') Fast hereingefallen? Lesen Sie den Text! Der Markt war voriges Jahr 
100 000! Heute ist er schon 3 % größer! 

Zu ?) Berühmte Fußangel! S errechnen Sie aus M und MA - auch noch im Jahr 
2000! Und M und MA haben Sie ja schon verändert! (in den Zeilen 
darüber!) Mit diesen „neuen“ M und MA berechnen Sie S!! 


HALT! 
Bevor Sie zum Programmieren schreiten: Die Frage, „Wann sind Sie pleite“, 
enthält eine Frage nach der ZEIT! 

Sicher wollen Sie nicht wissen, ob am 15. 6. 88 oder am 17. 7. 89 — Aber das 
Jahr? Oder in wievielen Jahren? ...das wollen Sie schon wissen. Also lassen Sie 
einen „Jahreszähler‘“ in Ihrem Programm mitlaufen. Und weil es uns interessiert, 
lassen Sie sich vom Computer alle Werte ausdrucken, die verfügbar werden! 


Es geht an: 

NEW 

10N = 6 das ist der Jahreszähler! 
20 M = 103 066 

30 P = 106 
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40 MA = 26 

50 S = (M*MA)/106 

52 PRINT”STUECK”,”’PREIS”,”M.-ANTEIL”,”MARKT” 

54 PRINT” 22 52 5 272 22 IS S5SS SS SS SS S ISIS SS SS = sm ame 


66 PRINT S,P,MA,M 
Es folgt die Entwicklung ab dem nächsten Jahr! 


70N=N+H1 

80 M = M*1.03 

96 P = P*1.68 

106 P = INT(P*106+.5)/160 (Rundung auf 2 Stellen!) 

116 MA = MA*.84 

126 MA = INT(MA*100+.5)/106 (dito!) 

136 S = (M*MA)/100 

146 S = INTI(S) (Was sollte hier „Rundung“? Sie ferti- 


gen doch nur „ganze“ Stücke, keine 
Bruchteile!) 

156 IF S <= 10660 THEN 176 

166 GO TO 66 

176 PRINT S,P,MA,M 

186 PRINT 

198 PRINT”NACH ”;N;” JAHREN SIND SIE PLEITE!” 

2606 END 


Wenn Sie dieses Programm starten: Hand auf’s Herz — hätten Sie gedacht, daß 
(unter den getroffenen Annahmen) das „Aus“ so schnell kommt? 

Erinnern Sie sich noch, was Sie auf den Seiten 103...106 zum Thema „Ausstei- 
gen aus Schleifen“ eingeübt hatten? Hier führe ich Ihnen eine weitere Variante 
vor, bei: 


156 IF S <= 10000 THEN... 

würde der Computer im 6. Umlauf feststellen, daß S = 9982 ist. 

Hieße jetzt — wie früher - die Zeile 170: 

1760 END, 

dann würde der Computer aussteigen und S = 9982 nicht mehr hinschreiben. 
Hier steht aber: 

176 PRINT S,P,MA,M... 

Und diese Zeile steht nur dazu da, um die 6. Zeile noch hinzuschreiben (und 
danach noch 180, 190 auszuführen). 
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33.2 Kampf um Marktanteile 


Noch ein ”Szenario”! 

— Zwei Anbieter tummeln sich — neben anderen - am Markt mit einem vergleich- 
baren Produkt. 

— Der Marktführer hat einen Anteil von 30 %, sein schärfster Rivale folgt mit 25 %. 

— Die Preise beider Anbieter sind zunächst gleich. 

— Während der Zweite am Markt sich mit einer jährlichen Preissteigerungsrate 
von 2 % begnügt, genehmigt sich der Marktführer 2.5 %. 

— Wie wirkt sich dieses Verhalten auf die Marktanteile beider Anbieter aus, unter 
der Annahme, daß für jeden der Anbieter gilt: 
1 % Preissteigerung ergibt einen Verlust an Marktanteil von 1 %. 

Natürlich können Sie das Programm für diese Aufgabe nach dem gleichen Muster 

stricken wie das vorige. Versuchen Sie es allein! Mein Vorschlag unten enthält 

nur eine spielerische Variante. 


16 INPUT”WIEVIELE JAHRE WOLLEN SIE DAS BEOBACHTEN ”;N 
20A = 6 

30 M = 106 

40 M1 = (M*30)/166 

50 M2 = (M*25)/106 

60 PRINT”MARKTANTEIL” „"MARKTANTEIL” 

70 PRINT”ANBIETER 1”,”ANBIETER 2” 

RSS NEE NEE ENEHENERU NEUN HER IE OERR ER = 


96 PRINT M1,,M2 

1#A=AH+1 

116 M1 = M1 * .975 

1206 M2 = M2 * .98 

Hier wurde das Runden vergessen! Es wird nachgetragen: 
115 M1 = INT(M1*106+.5)/106 

125 M2 = INT(M2*100+.5)/106 


Und nun: 

136 IFA = N THEN 156 
146 GO TO 96 

156 END 


Spielen Sie das ein paarmal mit unterschiedlichem N! Auch dabei kommt eine 
Überraschung heraus! Es dauert immerhin fast 40 Jahre, bis beide Anbieter einen 
gleichen — wenn auch sehr niedrigen — Marktanteil haben. Haben Sie übrigens 
beobachtet, mit welcher Raffinesse ich mich dieses Mal aus dem Programm 
geschlichen habe?! Ich kann jetzt durch Eingabe von N in Zeile 10 bestimmen, 
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wann das Programm verlassen werden soll. Nämlich dann, wenn der anfangs auf ® 
gesetzte Zähler A den Wert N erreicht hat! 

Siehe: 

130 IFA=N... 


Die Computerei ist doch recht vielseitig! 


33.3 Sie planen mit dem Computer Ihre Investitionen 


In den beiden letzten Programmen hatte Ihnen der Computer geholfen, einen 
Blick in die Zukunft zu tun. Sie mußten dabei für die einzugebenden Daten zum 
Teil von Schätzungen und Vermutungen ausgehen. Damit wurden die Ergebnisse 
Ihres Computers zwangsläufig abhängig von der Qualität und Treffsicherheit der 
von Ihnen getroffenen Annahmen. 

Bei den folgenden Programmen - bei denen Ihnen der Computer bei Entschei- 
dungen über Investitionen hilft — sind Ihre Eingabedaten jedoch gesicherte 
Fakten; die Formeln — die „Regeln“ — nach denen der Computer sie verarbeitet, 
wissenschaftlich abgesichert. Sie könnten auch sagen: Wenn Sie bei den letzten 
Beispielen mit Hilfe des Computers geschätzt haben, dann werden Sie jetzt mit 
seiner Hilfe rechnen. 

Es ist wichtig, daß Sie diesen Unterschied bei der Beurteilung der beiden 
Verfahren genau beachten. In beiden Fällen macht Ihnen der Computer ja nur 
Vorschläge für Ihre Entscheidungen; in beiden Fällen bleiben Sie Herr des 
Geschehens. Auch hier will ich Ihnen zunächst das Umfeld schildern. 

Sie üben eine Tätigkeit aus, bei der Sie Ihren Kunden, Ihren Vertretern und 
anderen oft Tabellen, Listen und ähnliche Schriftstücke innerhalb des normalen 
Schriftverkehrs zuschicken. Sie verwenden dazu Kopien, die Ihre Sekretärin im 
Kopierzentrum Ihres Unternehmens anfertigen läßt. Und deshalb ergibt es sich oft 
mehrmals in der Woche, daß Ihre Sekretärin ihre Schreibmaschine verläßt, um 
die Kopien im einige Stockwerke entfernten Kopierzentrum in Auftrag zu geben, 
auf ihre Anfertigung zu warten und wieder zurück zu wandern. Das scheint Ihnen 
unrationell zu sein; Sie überlegen, ob Sie Ihrer Sekretärin nicht ein Kopiergerät 
für Ihren Arbeitsplatz kaufen sollen. Die Frage ist nur: lohnt sich die Anschaffung? 

Ich werde Ihnen helfen, darauf eine Antwort zu finden. Offensichtlich kostet 
die Laufarbeit Ihrer Sekretärin Zeit, und damit Geld, das Sie einsparen bzw. zur 
Anschaffung des Kopiergerätes verwenden wollen. 

Ein befreundeter Betriebswirt hat mir eine Formel verraten, mit der man solche 
Entscheidungen rechnerisch absichern kann. Hier ist die Formel: 


TxL(1+F)=AxK 
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Ich sollte Ihnen wohl zuerst die Bedeutung der verschiedenen Buchstaben er- 


klären? 
A- 


das ist der Kapitalbetrag, den Sie investieren wollen. (Im Beispiel für das 
Kopiergerät). Es leuchtet ein, daß die Anschaffung keinen Sinn macht, 
wenn A am Ende sehr viel größer ist als der Betrag, den Sie durch Entfall 
der Lauferei einsparen wollen. 

ist die Zeit (in Stunden pro Jahr), die Ihre Sekretärin durch die Anschaf- 
fung einsparen könnte. Sie haben Ihre Sekretärin gebeten, darüber nach- 
zudenken. Sie hat geantwortet, daß wohl 80 Stunden im Jahr für die 
Lauferei draufgehen. 

dahinter verbirgt sich, was Ihre Sekretärin in einer Stunde verdient. Sie 
bezieht zwar ein monatliches Gehalt. Die Personalabteilung hat Ihnen 
jedoch gesagt, daß Sie mit einem Stundenlohn von 12.80 DM rechnen 
können. 

Was Ihre Sekretärin verdient, ist nur ein Teil der Summe, die sie Ihr 
Unternehmen kostet. Sie erhält ein Urlaubsgeld. Und einen Betrag zu 
Weihnachten. Ferner „Lohnfortzahlung im Krankheitsfall“, usw. Diese 
nicht direkt im Monatsgehalt erkennbaren Beträge faßt man zu den 
„Lohn-Nebenkosten“ zusammen. F ist nun der Zuschlagsfaktor, der diese 
Nebenkosten berücksichtigt. In Ihrem Unternehmen — das wissen Sie 
auch von der Personalabteilung — rechnet man mit F = 0.4. 

steht für „Kapital-Wiedergewinnungs-Faktor“. Dem liegt die Überlegung 
zugrunde, daß Ihr Unternehmen das einzusetzende Kapital nicht bar da 
liegen hat, sondern sich auf einer Bank gegen Zinsen leihen muß. Oder: 
Wenn das Geld bar vorhanden wäre, dann könnte es Ihre Firma ja gegen 
gute Zinsen anlegen - statt dafür ein Kopiergerät zu kaufen. 

Für K gilt die furchterregende Formel: 


k- Zu+2" 
(1+Z"-1ı 


Die Buchstaben Z und N bedeuten: 

ist der „Zinsfuß“. Um zu kurzen Formeln zu kommen, hatten wir oft A = 
A*1.05 geschrieben, wenn wir A um 5 % erhöhen wollten. Schreiben Sie 
A = (A*1) + (A*.05), erhalten Sie das gleiche Ergebnis — nur dürfen Sie 
jetzt .05 den Zinsfuß nennen! Im Augenblick ist Geld sehr teuer. Die 
betriebswirtschaftliche Abteilung Ihrer Firma rechnet mit 12 % Fremd- 
zins und rät Ihnen, in Ihre Rechnung mit dem doppelten Wert einzustei- 
gen. Deshalb verwenden Sie Z = .24 

schließlich ist die Anzahl der Jahre, die Sie das Kopiergerät nutzen 
können, bis es ersetzt werden muß. Allgemein können Sie auch sagen: 
„in N Jahren muß sich die Anschaffung amortisiert haben“. Da das Gerät 
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in einem Büroraum stehen und Ihre Sekretärin sehr sorgfältig damit 
umgehen wird, setzen Sie fürN =5. 
Kehren wir zu der Wunderformel zurück: 


TxL(1+F)J=AxK 
Da Sie A wissen wollen, stellen Sie die Formel nach A um! 
TxL(il+FR) 


K 
Und nun schreiben Sie das computergerecht: 


A=(T*L*(1+F))JK 
Wenden wir uns K zu: 


N 
x _ZUu+Z 


(1+ZN-1 


A= 


Darin kommt (1 + Z)N zweimal vor. Sie führen — wie oft geübt - eine Hilfsvariable 
ein und sagen: 


B=(1+Z)tN 

Dann wird K zu: 

K=(Z*B)/B-1) 

Nun sind Sie in der Lage, zur Lösung Ihres Problems ein Programm für Ihren 
Computer zu schreiben. Sie verwenden dazu alle bekannten Größen wie folgt: 


NEW 

10 T = 86 
20 L = 12.8 
30 F= .4 
40 Z = .24 
56N=5 


66B=(1+Z)tN 
70K=(Z*B)/(B-1) 
88A=(T*L*(1+F)/K 
und jetzt noch: 96 PRINT A 


Sie haben es jetzt schwarz auf weiß: 3935.78 DM dürfen Sie für das Kopiergerät 
ausgeben! 

Vielleicht sind Sie jetzt neugierig geworden und wollen einmal sehen, welches 
Ergebnis herauskommt, wenn Sie einzelne Größen variieren? Dann variieren Sie 
doch einmal N (alles andere bleibt unverändert). 

2 PRINT”N =",,”A =" 

4PRINT” ==========================2==2===2=======>= 
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50 FORN=1TO 16 

85 A = INT(A*100+.5)/100 
90 PRINT N,,A 

100 NEXT N 

110 END 


1156.13 
2088.49 
2840.4 

3446.77 
3935.78 
4330.15 
4648.18 
4904.66 
5111.5 

9278.31 


oonıovmı one 


- 
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Sie erkennen: 

— Wenn Sie ein Kopiergerät für DM 2840.40 beschaffen können, amortisiert es 
sich schon in drei Jahren. Das wäre gut! 

— Wenn es DM 5278.31 kostet, dauert die Amortisation 10 Jahre. Das ist ganz 
unakzeptabel! 

In der Presse ist oft von den Kosten eines Arbeitsplatzes die Rede. Finden Sie 

einmal für folgende Bedingungen heraus, wieviel Geld man aufwenden muß, um 

„Menschen durch Maschinen“ zu ersetzen. Gehen Sie davon aus, daß es in Ihrer 

Firma eine sehr unangenehme, schmutzige und anstrengende Arbeit gibt, die 

heute von zwei Leuten erledigt wird. Sie wollen diese Arbeitsplätze durch einen 

Automaten ersetzen. Sie fragen sich, was das kosten darf. 

— Man rechnet in der Industrie mit einer durchschnittlichen Arbeitszeit von 126 
Stunden über 12 Monate im Jahr. Sie würden also 126 * 12 * 2 Stunden = 3024 
Stunden pro Jahr einsparen. 

— Wegen der unangenehmen Arbeit müssen Sie einen hohen Lohn von 15.—- DM/ 
Stunde zahlen und haben außerdem hohe Lohn-Nebenkosten (F = 0.6). 

Setzen Sie das einmal in das obige Programm ein! 


10 T = 3024 
20 L = 15 
30F= 
= A = 
1 58529.1 
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105730 
143795 
174493 
199249 
219214 
235314 
248299 
258770 
267214 


Sind das nicht stattliche Summen? Übrigens: man rechnet heute mit Amortisa- 
tionszeiten von zwei bis fünf Jahren. 

Weil Sie ein derartiges Programm vielleicht in Ihrem Beruf einsetzen können, 
wollen wir es gemeinsam mal „allgemein gültig“ umschreiben! 
NEW 
16 PRINT”WIEVIEL STUNDEN SOLLEN PRO” 

15 PRINT”’JAHR EINGESPART WERDEN ?”; 
17 INPUTT 

26 PRINT”WELCHE LOHNKOSTEN” 

25 PRINT”IN DM/STD LIEGEN VOR ?”; 

27 INPUTL 

30 PRINT”’WIE IST DER FAKTOR (0.3...0.6)” 
35 PRINT”’FUER LOHN-NEBENKOSTEN ?”; 
37 INPUT F 

46 INPUT”WELCHE ZINSEN ZAHLEN SIE”;P 
50 Z=(2*P)/100 

66 PRINT”’IN WIEVIEL JAHREN” 

65 PRINT”WOLLEN SIE AMORTISIEREN ?”; 
67 INPUTN 

70B=(1+Z)TN 
88K=(2*B)/(B-1) 

96 A = ( T*L*(1 + F)VK 

Und das wird die Ausgabe! 


166 PRINT”BEI ”;T;”’EINGESPARTEN STUNDEN/JAHR” 

110 PRINT”UND ”;L;”’DM LOHNKOSTEN/STUNDE” 

126 PRINT”SOWIE ”;N;”JAHREN AMORTISATIONSZEIT” 

1306 PRINT 

146 PRINT”’KOENNEN SIE BIS ZU ”;A;” DM INVESTIEREN” 
150 PRINT” ===2=2=2=========2=2============" 
166 END 

Bitte beachten Sie die Ausführung der Zeilen 46 und 50!! 


oonolue w!M 
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Sie wissen, was ein String ist und haben davon schon gelegentlich Gebrauch 
gemacht. Was ist ein Text, ein Brief oder diese Seite anderes, als - im Sinne des 
Computers — eine Aneinanderreihung von Strings? 

Im kommerziellen Einsatz ist der Computer sehr stark damit beschäftigt, Texte 
zu bearbeiten und zu verarbeiten. Wenn ich Ihnen den Computer jetzt bei dieser 
Tätigkeit vorführe, dann werden Sie ein weiteres Mal das Fehlen eines Druckers 
beklagen. Es macht ja wirklich wenig Sinn, verarbeitete Texte nur auf dem 
Bildschirm zu betrachten. Aber vereinbarungsgemäß wollen wir Basic einüben — 
und das geht auch ohne Drucker. 

Sie möchten Ihrer Tante Berta zum Geburtstag gratulieren. Sie setzen sich hin 
und schreiben etwa: 

Liebe Tante Berta! 

Ich gratuliere Dir herzlich zum Geburtstag. 

Dein Neffe Klaus. 

Als Computerbesitzer wollen Sie diesen Vorgang des Brief-Schreibens rationali- 
sieren. Sie wollen die Arbeit durch Ihren Computer erledigen lassen. Sie schrei- 
ben ein Programm! 

10 A$ = "LIEBE TANTE BERTA!” 

20 B$ = ” ICH GRATULIERE DIR HERZLICH ZUM GEBURTSTAG.” 

30 C$ = ” DEIN NEFFE KLAUS.” 

Ich habe hier aus Gründen der Übung - und weil ich nicht weiß, wieviel Text Ihr 
Computer in einem String schluckt — verhältnismäßig kurze Strings gewählt. Der 
PCP 464 hätte den ganzen Brief auch in einem String aufgenommen. Sie müssen 
das halt ausprobieren; wir haben schon einmal darüber gesprochen. 

Sie haben also jetzt den Brief (Text) in Ihrem Computer gespeichert. Wenn das 
Ereignis naht, sagen Sie Ihrem Computer: 

46 PRINT A$;B$;C$ 
Der Computer wird ausgeben: 
LIEBE TANTE BERTA !ICH GRATULIERE DIR HERZLICH ZUM GEBURTSTAG.D 
EIN NEFFE KLAUS. 
Ihre Tante wird über so einen Brief nicht begeistert sein. Das hängt alles so 


lieblos aneinander; außerdem: Seit wann kann man das Wort DEIN trennen? Und 
dann: D EIN?? 
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Ich habe hier - auch zur Übung - angenommen, daß mit dem „D“ in dem Wort 
DEIN eine Zeile Ihres Bildschirmes voll ist; der Computer schreibt dann ohne 
Rücksicht auf Grammatik den Rest auf die nächste Zeile. 

Wir können den Computerbrief sehr einfach verschönern! 


46 PRINT A$ 606 PRINT B$ 
50 PRINT 70 PRINT C$ 


Jetzt sieht der Brief so aus: 
LIEBE TANTE BERTA! 


ICH GRATULIERE DIR HERZLICH ZUM GEBURTSTAG. 
DEIN NEFFE KLAUS. 


Und so wollen wir ihn gelten lassen. Rechte Befriedigung werden Sie sicher 

trotzdem nicht empfinden. Variieren Sie doch die Aufgabe wie folgt: 

— Sie wollen Tante Berta zum GEBURTSTAG und zum HOCHZEITSTAG gratu- 
lieren. 

— Außerdem wollen Sie jeweils angeben, um den wievielten Jubeltag es sich 
handelt. 


Ergänzen Sie Ihr Programm zunächst um: 


26 B$ =" ICH GRATULIERE DIR ZUM ” 
22 D$ =” GEBURTSTAG ” 
24 E$ =" HOCHZEITSTAG ” 
Jetzt fehlt noch die Eingabe des „Datums“! Das Wort EINGABE weist Ihnen den 
Weg zu: 
35 INPUT”DER WIEVIELTE GEBURTS- ODER HOCHZEITSTAG”;N$ 
Nun können Sie programmieren: 
1. Gratulation zum Geburtstag: 

46 PRINT A$ 

56 PRINT 

60 PRINT B$;N$;D$ D$ für Geburtstag! 

70 PRINT C$ 
2. Gratulation zum Hochzeitstag: 

46 PRINT A$ 

56 PRINT 

60 PRINT B$;N$;E$ E$ für Hochzeitstag! 

76 PRINT C$ 
Wenn Sie diese Programme starten, findet der Computer zunächst lauter Zuwei- 
sungen (Zeilen 16, 26, 22, 24). In Zeile 35 hält er an, um auf Ihre Eingabe für das 
„Datum“ zu warten. Auch das macht noch nicht viel Sinn. Wir wenden uns einem 
anderen Beispiel zu. 
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Sie betreiben einen Versandhandel und bekommen per Post Aufträge zuge- 
schickt. Sie bedanken sich bei Ihren Kunden; je nach der vorliegenden Situation 
sind drei Brieftexte denkbar: 


Brief 1 (Auftragsbestätigung): 


Sehr geehrter Herr 


Wir danken Ihnen für Ihren Auftrag vom . 
Ihren Auftrag können wir sofort ausführen. 


Wir werden die Ware hier am abschicken. 
Wir danken Ihnen und verbleiben 

mit freundlichen Grüßen. 

Meier & Co 


Brief 2 (Terminangabe): 


Sehr geehrter Herr ! 


Wir danken Ihnen für Ihren Auftrag vom ; 
Leider ist der bestellte Artikel im Augenblick nicht lieferbar. Voraussichtlich 


wird die Bestellung am ausgeführt. 
Wir danken Ihnen und verbleiben 

mit freundlichen Grüßen 

Meier & Co 


Brief 3 (Neuangebot): 


Sehr geehrter Herr ! 


Wir danken Ihnen für Ihren Auftrag vom |17. Mai|. 
Der bestellte Artikel ist leider ausverkauft. 


Wir können Ihnen jedoch das Nachfolgemodell anbieten. Bitte lassen Sie uns 
wissen, ob Sie damit einverstanden sind. 

Wir danken Ihnen und verbleiben 

mit freundlichen Grüßen 

Meier & Co 


Nun achten Sie darauf, was für Zeichen ich in den einzelnen Briefen angebracht 


habe. 

Alle eingerahmten Angaben müssen wohl in jedem Brief verschieden 
2] sein. 

— Die Kunden haben verschiedene Namen. 

— Sie bestellen zu verschiedenen Terminen. 

— Sie liefern zu unterschiedlichen Terminen. 
Sehr... Alles, was unterstrichen ist, das ist in allen drei Briefen gleich. 
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Der restliche Text ist zwar von Brief zu Brief verschieden, kann aber bei mehreren 
Briefen der gleichen Art (z. B. Auftragsbestätigung) ebenfalls immer gleich sein. 
Zur Programmierung zerlegen Sie den Brief in einzelne Strings. Alles, was 
„individuell“ ist, wird darüber hinaus über INPUT eingegeben. Dieser Teil der 
Programmierung führt zu folgendem Ergebnis: 


5CLS 
10 A$ = "SEHR GEEHRTER HERR” 
26 B$ = "WIR DANKEN IHNEN FUER IHREN AUFTRAG VOM” 
306 C$ = "IHREN AUFTRAG KOENNEN WIR SOFORT AUSFUEHREN.” 
40 D$ = "WIR WERDEN DIE WARE HIER AM” 
50E$ = ”ABSCHICKEN.” 
60 F$ = "WIR DANKEN IHNEN UND VERBLEIBEN” 
76G$ = "MIT FREUNDLICHEN GRUESSEN” 
80 H$ = ”MEIER & CO” 
961$ = "LEIDER IST DER BESTELLTE ARTIKEL IM AUGENBLICK NICHT 
LIEFERBAR” 
166 J$ = "VORAUSSICHTLICH WIRD DIE BESTELLUNG AM” 
116 K$ = ”AUSGEFUEHRT.” 
126 L$ = "DER BESTELLTE ARTIKEL IST LEIDER AUSVERKAUFT.” 
1306 M$ = ”WIR KOENNEN IHNEN JEDOCH EIN NACHFOLGEMODELL AN- 
BIETEN.” 
146 N$ = "BITTE LASSEN SIE UNS WISSEN, OB SIE DAMIT EINVERSTAN- 
DEN SIND.” 
150 INPUT "NAME DES KUNDEN”;O$ 
166 INPUT "STRASSE, HAUSNUMMER”;P$ 
176 INPUT "WOHNORT’”;Q$ 
180 INPUT "BESTELL-DATUM”; R$ 
190 INPUT "LIEFERDATUM’”;S$ 


Um nun jeweils den richtigen Brief vom Computer schreiben zu lassen, machen 
wir zunächst ein Programm mit einer Auswahltabelle. Das geschieht in den 
Zeilen 200 bis 280. In dem Programmteil ab Zeile 366 werden dann die einzelnen 
Strings wieder zu den gewünschten Briefen zusammengesetzt. 


200 CLS 

216 PRINT ” AUSWAHLTABELLE” 

220 PRINT ” =S===========" 

230 PRINT 

240 PRINT "AUFTRAGSBESTAETIGUNG = 1” 
250 PRINT "TERMINANGABE = 2” 
266 PRINT "NEUANGEBOT = 3” 
276 INPUT A 
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280 ON A GO TO 306, 456, 600 


366 CLS 

310 PRINT O$ 

326 PRINT P$ 

336 PRINT Q$ 

340 PRINT 

350 PRINT A$; O$; ”!” 
360 PRINT 

370 PRINT B$; R$; ”.” 
380 PRINT C$ 

396 PRINT D$; S$; E$ 
400 PRINT 

405 PRINT F$ 

410 PRINT G$ 

420 PRINT 

430 PRINT H$ 

440 END 


450 CLS 

466 PRINT O$ 

470 PRINT P$ 

480 PRINT Q$ 

490 PRINT 

560 PRINT A$; O$; ”!” 
516 PRINT 

520 PRINT B$; R$; ”.” 
530 PRINT I$; ”.” 

540 PRINT J$; S$; K$ 
545 PRINT 

556 PRINT F$ 

560 PRINT G$ 

570 PRINT 

580 PRINT H$ 

590 END 
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BRIEF 1 


BRIEF 2 
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606 CLS .— 
616 PRINT O$ 

626 PRINT P$ 

636 PRINT Q$ 

640 PRINT 

650 PRINT A$; O$; ”!” 

660 PRINT 

670 PRINT B$; R$; ”.” 

680 PRINT L$ 

696 PRINT M$ 

766 PRINT N$ 

716 PRINT 

726 PRINT F$ 

730 PRINT G$ 

740 PRINT 

756 PRINT H$ 

760 END Pe 


Auf ein paar Besonderheiten möchte ich Sie noch hinweisen: Betrachten Sie die 
Zeile 506: 
500 PRINT A$;08$;”!” 


A$ ist: SEHR GEEHRTER HERR; O$ ist: SCHULZE - beispielsweise! In Zeile 500 
wird daraus: 
SEHR GEEHRTER HERR SCHULZE! 
Bemerken Sie, wie das Ausrufungszeichen in den Brief gelangt ist? Wenn sich 
also — wie hier — Satzzeichen aus bestimmten Gründen im String nicht unterbrin- 
gen lassen, dann werden Sie bei der Ausführung auf die bekannte Weise (durch 
”,...”) dem Computer zum Druck angewiesen! 
So hundertprozentig gefällt mir das Programm noch nicht! In den einzelnen 
Unterabschnitten kommen mir zu oft die gleichen PRINT-Befehle vor. Warum 
machen wir nicht aus Unterabschnitten ein UNTERPROGRAMM? 

Sie haben doch gelernt, wie das mit GOSUB...RETURN geht! Ich führe Ihnen 
das noch einmal vor! 


BRIEF 3 


5 CLS 
18 A$ = "SEHR GEEHRTER HERR” 
20 B$ = "WIR DANKEN IHNEN FÜR IHREN AUFTRAG VOM” 
36 C$ = "IHREN AUFTRAG KOENNEN WIR SOFORT AUSFUEHREN.” 
46 D$ = "WIR WERDEN DIE WARE HIER AM ” 
50 E$ = ”ABSCHICKEN.” 
66 F$ = "WIR DANKEN IHNEN UND VERBLEIBEN” 
76 G$ = "MIT FREUNDLICHEN GRUESSEN” 
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80 H$ = ”MEIER & CO” 
961I$ = "LEIDER IST DER BESTELLTE ARTIKEL IM AUGENBLICK 
NICHT LIEFERBAR” 
160 J$ = "VORAUSSICHTLICH WIRD DIE BESTELLUNG AM ” 
116 K$ = "”AUSGEFUEHRT.” 
126 L$ = "DER BESTELLTE ARTIKEL IST LEIDER AUSVERKAUFT.” 
130 M$ = "WIR KOENNEN IHNEN JEDOCH EIN NACHFOLGEMODELL 
ANBIETEN.” 
146 N$ = "BITTE LASSEN SIE UNS WISSEN, OB SIE DAMIT 
EINVERSTANDEN SIND.” 
156 INPUT ”NAME DES KUNDEN”; O$ 
166 INPUT "STRASSE, HAUSNUMMER”; P$ 
176 INPUT "WOHNORT”; Q$ 
180 INPUT ”BESTELL-DATUM”; R$ 
196 INPUT ”LIEFERDATUM”; S$ 
Sie sehen, daß „Zuweisungsteil“ und INPUT-Teil unverändert bleiben. Auch die 
Auswahltabelle bleibt mit den Zeilen 200 bis 280 erhalten. 

Aber ab Zeile 300 gehen wir in das Unterprogramm, das mit Zeile 760 beginnt. 
Dieses Unterprogramm druckt Name, Straße und Wohnort des Kunden. Dann die 
Anrede und das „Dankeschön“ für den Auftrag. Dann kehrt es zurück ins 
Hauptprogramm (mit RETURN!) und findet dort — beispielsweise — in Zeile 310 
den weiteren Text. 


Ein zweites Unterprogramm beginnt — z.B. - in Zeile 336: GOSUB 800. In 
diesem Unterprogramm befindet sich die für jeden Brief gleiche „Schlußformel“. 


200 CLS 

216 PRINT” AUSWAHLTABELLE” 

220 PRINT” ============? 

230 PRINT 

240 PRINT "AUFTRAGSBESTAETIGUNG = 
250 PRINT ”TERMINANGABE = 2” 
266 PRINT "NEUANGEBOT a 
276 INPUT A 

280 ON A GO TO 306, 450, 600 

3600 GOSUB 706 

310 PRINT C$ 

320 PRINT D$; S$; E$ 


| 
„m 


BRIEF 1 


3360 GOSUB 800 
340 END 
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450 GOSUB 706 


re u 2 
460 PRINT 1$;”.” di 
470 PRINT J$; S$; K$ = 
480 GOSUB 806 = 
490 END —— 
600 GOSUB 706 PEIERERRNGEE 
616 PRINT L$ 
620 PRINT M$ Er 
630 PRINT N$ = 
m 
640 GOSUB 806 
650 END _— 
700 CLS < 
716 PRINT O$ = 
720 PRINT P$ ‚s 
736 PRINT Q$ Se 
740 PRINT = 5 
750 PRINT A$; O$; ”!” 58 
766 PRINT = 
776 PRINT B$; R$; ”.” 
780 RETURN —_ 
806 PRINT DE 
810 PRINT F$ =>- 
820 PRINT G$ =2 
830 PRINT = 2 
840 PRINT H$ = 
850 RETURN | 


Was haben Sie dazugelernt? 


® ...Wie man Texte in Strings umwandelt. 

® ...Wie man aus Strings wieder Texte zusammensetzt. 

® Lassen sich aus besonderen Gründen Satzzeichen, Leerzeilen „individuelle“ 
Daten usw. nicht in einem String unterbringen, dann kann man sie über PRINT 
ankre ” einfügen. 

® Mit INPUT... kann man nicht nur — wie in unseren Beispielen — besondere 
Strings ins Programm aufnehmen. Sie können auch INPUT-Befehle mitten im 
Text anordnen. Der Computer „druckt“ dann den Text bis zum INPUT-Befehl, 
wartet auf die EINGABE und setzt danach den „Druck“ fort. Das ist aber 
wirklich nur sinnvoll, wenn auch ein Drucker zur Verfügung steht! 
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34.1 Können Sie drucken? 


Falls Sie Besitzer eines C-64 sind... 

und über einen Drucker verfügen... 

dann habe ich Ihnen das letzte Programm noch einmal für Ihren Drucker aufge- 
schrieben. 

Müssen Sie eine oder beide Fragen verneinen, dann beschäftigen Sie sich im 
nächsten Kapitel mit der Lagertechnik! 

In dem folgenden Programm finden „Dateneingabe“ — d. h. die Eingabe der 
Namen und Termine — auf dem Bildschirm statt. Desgleichen sehen Sie das 
Auswahlmenü auf dem Bildschirm. Erst wenn Sie alle Daten eingegeben sowie 
ausgewählt haben, welchen der drei möglichen Formbriefe Sie schreiben lassen 
wollen, wird die Ausgabe auf den Drucker umgeleitet. 

Das geschieht in den Zeilen 306, 450 und 606. 

Die hier dafür verwendeten Floskeln und Basic-Worte gelten nur für den C-64. 
Haben Sie einen anderen Computer, dann müssen Sie diese Zeilen mit Hilfe des 
Handbuches entsprechend abändern. 

Ist der gewünschte Brief gedruckt, ist in den Zeilen 346, 490 und 650 der 
Druckkanal wieder zu schließen und die Ausgabe des Computers somit wieder 
auf den Bildschirm zu leiten. Auch diese Zeilen sind C-64-spezifisch! 

Im Anschluß an das Programm zeige ich Ihnen je einen der möglichen drei 
Briefe. 


READY. 


5 PRINT CHR$(147) 

10 A$="SEHR GEEHRTER HERR ” 

20 B$="WIR DANKEN IHNEN FUER IHREN AUFTRAG VOM " 

30 C$="IHREN AUFTRAG KOENNEN WIR SOFORT AUSFUEHREN.” 

46 D$="WIR WERDEN DIE WARE HIER AM ” 

50 E$="” ABSCHICKEN.” 

60 F$="WIR DANKEN IHNEN UND VERBLEIBEN” 

70 G$="MIT FREUNDLICHEN GRUESSEN.” 

80 H$="MEIER & CO.” 

96 I$="LEIDER IST DER BESTELLTE ARTIKEL IM AUGENBLICK NICHT 
LIEFERBAR.” 

100 J$="VORAUSSICHTLICH WIRD DIE BESTELLUNG AM ” 

110 K$=” AUSGEFUEHRT.” 

126 L$="DER BESTELLTE ARTIKEL IST LEIDER AUSVERKAUFT.” 

130 M$="WIR KOENNEN IHNEN JEDOCH EIN NACHFOLGEMODELL 

ANBIETEN.” 
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140 N$="BITTE LASSEN SIE UNS WISSEN, OB SIE DAMIT EINVERSTANDEN 
SIND.” 

150 INPUT”NAME DES KUNDEN ”;0$ 

166 INPUT”STRASSE / HAUSNUMMER ”;P$ 

176 INPUT”PLZ / WOHNORT ”;Q$ 

186 INPUT”BESTELL-DATUM ”;R$ 

196 INPUT”LIEFER-DATUM ”;S$ 

200 PRINT CHR$(147) 


210 PRINT” AUSWAHLTABELLE” 

220 PRINT” ee 

2360 PRINT 

240 PRINT’AUFTRAGS-BESTAETIGUNG .. 1” 
256 PRINT”TERMIN-ANGABE ........... 2 
260 PRINT’NEU-ANGEBOT ............. 3” 
276 INPUT A 


280 ON A GOTO 300,450,600 
300 OPEN 1,4: CMD 1 

305 GOSUB 706 

316 PRINT C$ 

326 PRINT D$;S$;E$ 

330 GOSUB 800 

340 CLOSE 1 : PRINT#1 : END 
450 OPEN 1,4 : CMD 1 

455 GOSUB 706 

460 PRINT I$ 

470 PRINT J$;S$;K$ 

480 GOSUB 800 

490 CLOSE 1 : PRINT#1 : END 
600 OPEN 1,4 : CMD 1 

605 GOSUB 706 

610 PRINT L$ 

620 PRINT M$ 

630 PRINT N$ 

640 GOSUB 806 

650 CLOSE 1 : PRINT#1 : END 
706 PRINT”HERRN ” 

716 PRINT O$ 

726 PRINT P$ 

730 PRINT Q$ 

740 PRINT 

750 PRINT A$;0$;” !” 
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766 PRINT 

776 PRINT B$;R$;”.” 
780 RETURN 

800 PRINT 

810 PRINT F$ 

820 PRINT G$ 

830 PRINT 

840 PRINT H$ 

850 RETURN 


READY. 


HERRN 
ERICH MEIER 
STEINWEG 12 
1234 ESSEN 


SEHR GEEHRTER HERR ERICH MEIER ! 

WIR DANKEN IHNEN FUER IHREN AUFTRAG VOM 12.4.85. 
IHREN AUFTRAG KOENNEN WIR SOFORT AUSFUEHREN. 
WIR WERDEN DIE WARE HIER AM 14.4.85 ABSCHICKEN. 


WIR DANKEN IHNEN UND VERBLEIBEN 
MIT FREUNDLICHEN GRUESSEN. 


MEIER & CO. 

HERRN 

KLAUS MUELLER 

FELDSTR. 35 

4321 BREMEN 

SEHR GEEHRTER HERR KLAUS MUELLER ! 

WIR DANKEN IHNEN FUER IHREN AUFTRAG VOM 10.3.85. 


LEIDER IST DER BESTELLTE ARTIKEL IM AUGENBLICK NICHT LIEFERBAR. 
VORAUSSICHTLICH WIRD DIE BESTELLUNG AM 20.5.85 AUSGEFUEHRT. 
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WIR DANKEN IHNEN UND VERBLEIBEN 
MIT FREUNDLICHEN GRUESSEN. 


MEIER & CO. 


HERRN 

HEINZ WEBER 
SCHILLERSTR. 123 
4444 BRAUNSCHWEIG 


SEHR GEEHRTER HERR HEINZ WEBER ! 

WIR DANKEN IHNEN FUER IHREN AUFTRAG VOM 3.3.85. 

DER BESTELLTE ARTIKEL IST LEIDER AUSVERKAUFT. 

WIR KOENNEN IHNEN JEDOCH EIN NACHFOLGEMODELL ANBIETEN. 
BITTE LASSEN SIE UNS WISSEN, OB SIE DAMIT EINVERSTANDEN SIND. 


WIR DANKEN IHNEN UND VERBLEIBEN 
MIT FREUNDLICHEN GRUESSEN. 


MEIER & CO. 


35 Lagertechnik 


Stellen Sie sich vor, Sie seien Besitzer eines Schuhgeschäftes. Sie führen Schuhe 
für Damen, Herren und Kinder. Das sind drei Angebote. Für jede Kundengruppe 
führen Sie Straßenschuhe, Hausschuhe, Turnschuhe und Wanderschuhe. Das 
sind schon 3x4 = 12 Angebote. Da die Geschmäcker bekanntlich verschieden 
sind, führen Sie Ihr Angebot noch in 5 verschiedenen, modischen Varianten und 
in drei Farben. Dann haben Sie 3x 4x5x3 = 180 Angebote. 

Die Füße Ihrer Kunden sind natürlich unterschiedlich groß — also nehmen Sie 
alle Modelle noch in acht Größen an Lager - darin verbergen sich dann 180 x8 = 
1440 verschiedene Schuhe, wenn Sie jedes Paar nur einmal am Lager haben... 

Wir wollen dieses Spiel hier abbrechen. Sie haben längst erkannt, worauf das 
hinausläuft. Schon bei einem vergleichsweise bescheidenen Angebot kommen 
Sie rasch zu einer Fülle von VARIANTEN. Automobilfabriken lagern z.B. in 
ihren Ersatzteillagern mehr als 100 000 verschiedene Teile — von der Unterleg- 
scheibe bis zum Austauschmotor. Es ist leicht einzusehen, daß Sie in einem 
derartigen Lager niemals das gewünschte Teil finden würden, wenn das Lager 
nicht gut organisiert wäre und jedes Ding seinen festen Platz hätte. 

Wenn Sie als Schuhkaufmann Ihren Lehrling mit dem Auftrag ins Lager 
schicken: „Hole die roten Damenturnschuhe mit Ledersohle...”, dann werden Sie 
ihn eine Weile nicht wiedersehen. Sie müßten ihm fairerweise sagen, WO er die 
betreffenden Schuhe findet, WO im LAGER die Schuhe nach der Anlieferung 
EINGELAGERT wurden. Und Sie müssen — wenn Sie nicht ein Chaos produzieren 
wollen - im voraus für bestimmte Waren bestimmte (Lager-)PLÄTZE festlegen. 

Sie können das in epischer Breite tun, wie „drittes Fach in der siebten Reihe des 
zweiten Regals“. 

Oder in militärischer Kürze: 


020703; wobei jetzt steht: 

02 für zweites Regal 

07 für siebte Reihe 

03 für drittes Fach. 

Wir wollen unseren Computer nicht aus den Augen verlieren. Aus dem oben 
Erzählten ziehen wir die wichtigsten Begriffe heraus und versuchen, sie in einen 
Bezug zum Computer zu bringen. 
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Typen-Vielfalt, Varianten 


Das klingt doch fast wie VARIABLE - und damit haben Sie umzugehen gelernt. 

Sie könnten auf den Gedanken kommen, die einzelnen „Schuh-Variablen“ mit 
Namen zu belegen wie A, A9, AA... AZ usw. 

Wenn Sie in die Variablen-Liste auf Seite 58 zurückgehen, werden Sie erken- 
nen, daß Sie dort eine Menge Variable zur Verfügung haben. Sie erkennen aber 
auch, daß die Zahl der möglichen Variablen für einige Tausend „Lagergüter“ 
NICHT AUSREICHT. 

Wir führen einen neuen Variablen-Typ ein — die sogenannte 
INDIZIERTE VARIABLE 
Übersetzen Sie das fürs Gedächtnis zu „Variable mit Index“. 
In der Mathematik schreibt man einen Index so: 
X,, gesprochen „X-eins“ oder 
Xzs, gesprochen „X-neunundzwanzig“. 
Sie sehen hier schon: In der Variablenliste gibt es keine Variable mit dem Namen 
X 29... 

Der Computer akzeptiert aber nicht Xzs. Wenn Sie also der Variablen X den 
Index 29 geben wollen, müssen Sie das für den Computer verständlich machen. 
Und zwar so: 

X; schreibt man für den Computer: X(29) 


..das war ein weiterer Begriff. Das setzen Sie gleich mit dem SPEICHER Ihres 
Computers. 


Lager einrichten 


Wenn Sie 1000 Artikel lagern wollen, dann werden Sie kein Lager bauen, das nur 
für 500 Artikel ausreicht. Aber auch keins für 10 000, weil das viel zu teuer und 
damit unwirtschaftlich wäre. 
Bei Ihrem Computer richten Sie ein Lager ein... 

DIMensionieren Sie einen bestimmten SPEICHERbereich durch den Befehl: 
DIM... 
Das übersetzen Sie zu DIMensioniere! 

..Tichte ein! 

..schaffe Platz für!... 


LAGER EINRÄUMEN 

Das müssen Sie per Computer tun; Sie müssen den SPEICHER mit DATEN - z.B. 
mit indizierten Variablen FÜLLEN. 

AUS DEM LAGER SUCHEN / LAGER AUSRÄUMEN 
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Auch das tut der Computer für Sie — natürlich nur auf den entsprechenden 
Befehl! Wie stets, wollen wir das an einem einfachen Beispiel üben. 


1. Schritt: Lager einrichten 
10 DIM A(8) 
Das bedeutet: der Computer soll für 8 (!) indizierte Variable im Speicher Platz 
schaffen und freihalten. 

Sinnvoller und eindrucksvoller wäre natürlich DIM A(666) — aber dann bekä- 
men Sie beim anschließenden „Einräumen“ lange Arme... 


2. Schritt: Lager einräumen 
Sie müssen nun die DIMensionierten 8 Speicherplätze mit 8 Werten belegen. 


20 FORI=1TO8 (8 Plätze!!) 
30 INPUT A(l) 
40 NEXT I 


Für das in Zeile 16 DIMensionierte Lager bedeuten die Zeilen 20, 30 und 40 den 
„Einräum- oder Einlesevorgang“. 
Es ist gleichgültig, ob Sie schreiben 


„FOR 1... oder „FOR X... 
.„A() .„A(X) 
NEXT I NEXT X 


Bevor wir „einräumen“, wollen wir den 3. Schritt programmieren. 


3. Schritt: Lager ausräumen 
45 PRINT” A(7)=",”A(1)=",”A(5)=",”A(2)=" 
50 PRINT A(7),A(1),A(5),A(2) 
Hier wollen wir mit Zeile 56 nicht alle 8 Variablen sehen, sondern nur die mit 
dem Index 7, 1,5, 2. 
Wenn Sie jetzt das Programm starten, wird der Computer achtmal nach A(...) 
fragen. Wir schreiben das einmal mit! 
Ihre Eingabe für A(...) 


?17 für A(1) 
?25 für A(2) 
233 für A(3) 
?44 für A(4) 
?125 für A(5) 
732 für A(6) 
?15 für A(7) 
?8 für A(8) 


Achtung! Wenn Sie jetzt ENTER drücken, geht der Computer sofort im Programm 
weiter; von Zeile 40 in Zeilen 45, 50. Sie lesen: 
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A(7)= Al1)= A(5)= A(2)= 
15 17 125 25 
Die Kontrolle mit Ihrer Eingabe oben ergibt, daß der Computer richtig ein- und 
ausgelesen hat! Machen wir noch ein Beispiel: 


NEW 

16 DIM A(6) 

20 FORZ=1TO6 

30 INPUT A(Z) 

406 NEXT Z 

Als Variante unseres Programms wollen wir einmal die Summe S für alle 6 
eingegebenen Variablen ausrechnen lassen! 

565=6 

66 FORZ=1TO6 

70S=S+A(Z) (Hiermit erfolgt die Summenbildung!) 
80 PRINT A(Z) 

90 NEXT Z 

166 PRINT”’SUMME ALLER A(Z) =";S 

Es geht los! 


?3 EINGABE! 


AUSGABE! 


SUMME ALLER A(Z)=21 


Unser bisheriges Lager hatte nur eine DIMension. Alle Lagerfächer waren gewis- 
sermaßen in eine Reihe nebeneinander gestellt worden. 

Das ist nicht sonderlich praktisch; angesichts der hohen Preise für Grund und 
Boden geht man heute beim Bau von Lagern in die Höhe! 

Schauen Sie sich die Abb. 23 an: 
Dort ist ein „Lager“ mit 6 „Stockwerken“, 4 „Reihen“ und insgesamt 24 Plätzen 
abgebildet. Die Plätze sind von A(1) bis A(24) numeriert. 
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24 Plätze 
35 Lagertechnik 


Abb. 23 Ein Lager kann zwei (und 
auch mehr) Dimensionen anneh- 


men 


| 


Abb. 24 Das Lager sollte dann auch seiner Struktur entsprechend 
Reihe durchnumeriert werden 
So etwas kann man machen - aber es ist nicht besonders übersichtlich. Schauen 


Sie sich zum Vergleich die Abb. 24 an! 
Jetzt ist hinsichtlich der Plätze eine zweifache Unterscheidungsmöglichkeit 


getroffen. 
Nämlich nach Etagen (im Beispiel 6) 
und nach Reihen (im Beispiel N) 
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In die Computersprache übersetzt, ergibt das den Index E, R für die einzelnen 
Fächer. 

A(E,R) 

Die Abbildung macht wohl deutlich, wie das zu lesen und zu verstehen ist! 


35.1 Der Computer verwaltet Ihr Scheckbuch 


Diese „Hochregallagertechnik“ wollen wir an einem praktischen Beispiel üben. 
Als ordentlicher Mensch schreiben Sie sich auf, welche Schecks Sie ausstellen. 
Diese LISTE enthält die Scheck-Nummer, das Ausstell-Datum und den Scheck- 
Betrag — etwa nach folgendem Schema: 

(Wir begnügen uns mit einer Liste für 10 Schecks!) Mit den Daten Ihrer Liste sieht 
das so aus: 


1. Schritt: „Lager“ einrichten: 
10 DIM SB (16, 3) 
Für SB = Scheck-Buch mit 10 Zeilen und 3 Spalten 


2. Schritt: „Lager“ einräumen: 

Das machen wir mit zwei ineinandergeschalteten FOR...NEXT-Schleifen. 46 
READ... weist darauf hin, daß wir die Daten der Schecks als DATA-Liste einge- 
ben. Das hat folgenden Vorteil: Bei den Übungen vorhin war aufgefallen, daß die 
über INPUT eingegebenen Variablen nach jedem Computerlauf automatisch 
gelöscht wurden. Bei READ... DATA... sind die Daten jedoch Bestandteil des 
Programms und bleiben solange erhalten und „verarbeitbar“, wie das Programm 
existiert. 

20 FOR Z = 1 TO 16 

360 FORS=1TO3 

40 READ SB (Z, S) 


50 NEXT S 
60 NEXT Z Zeile —— 1:]| Scheck -Nr. 
Teile — 10:| Scheck - Nr. Datum Betrag 
Abb. 25 Die Liste der ausgestellten Schecks ! 
ist hier zweidimensional Spalte 1 Spalte 2 Spalte 3 
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"Scheck -Nr.” "Datum" "Betrag ” 
Spalte 1 Spalte 2 Spalte 3 
| 5=1 5=2 5=3 
1=1 19 12 115 


28 2.12 125.38 


3 21 5.12 1312.18 


4 22 5.12 47.85 


5 23 10.12 23.78 


6 24 17.12 25 
7 25 19.12 125. 38 


8 26 19.12 Eu) 
9 27 19.12 725.85 
7=19 SB (18.1) SB (19,2) SB (12,3) 


SB (19,1)=28 SB (18,2)=28,12 SB (19,3) = 33,50 


Abb. 26 Neun Schecks des Scheckbuches SB sind bereits ausgefüllt und 
eingetragen. Der zehnte Scheck befindet sich gerade „in Arbeit“ 


Mit den Zeilen 26 bis 66 werden also die Daten eingelesen. 
Wir geben die Daten in der vorliegenden Form ein: 


Beispiel: 1606 DATA 19... 19 ist die Scheck-Nummer! 
DATA ... 1.12... ist das Datum 1. Dezember! 
DATA ... ... 115 ist der Scheck-Betrag! 


Und das ist die vollständige Liste: 


106 DATA 19, 1.12, 115 
116 DATA 26, 2.12, 125.30 
126 DATA 21, 5.12, 1312.16 
136 DATA 22, 5.12, 47.85 
146 DATA 23, 16.12, 23.70 
156 DATA 24, 17.12, 25 
160 DATA 25, 19.12, 125.30 
176 DATA 26, 19.12, 8600 
186 DATA 27, 19.12, 725.85 
198 DATA 28, 28.12, 33.50 
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3. Schritt: „Lager“ ausräumen 

Genauso, wie Sie mit unterschiedlicher Zielsetzung in die Liste der von Ihnen 

ausgestellten Schecks schauen können — mal interessiert Sie ein ganz bestimmter 

Scheck, mal vielleicht ein bestimmter Betrag — so können Sie von Ihrem Compu- 

ter bestimmte Details abrufen. Mit dem entsprechenden Programm, versteht sich! 
Lassen Sie sich doch zunächst die ganze Liste noch einmal vorzeigen! 


266 PRINT”SCHECK-NR”,”DATUM”,”BETRAG” 


300 FOR Z = 1 TO 106 

316 PRINT SB(Z,1),SB(Z,2),SB(Z,3) 

3760 NEXT Z 

Na, ist alles sauber abgebucht? 

Mit dem nächsten Programm lassen Sie sich einen bestimmten Scheck heraussu- 
chen. „Suchkriterium“ ist dabei die Scheck-Nr. 


Verändern Sie Ihr Programm wie folgt: 

200 

2260 INPUT”’NUMMER DES GEWUENSCHTEN SCHECKS EINGEBEN !”; N 
316 IF SB(Z,1) = N THEN 350 

320 NEXT Z 

350 PRINT SB(Z,1),SB(Z,2),SB(Z,3) 

370 


Es wird für Sie nützlich sein, wenn ich Ihnen den Ablauf dieses Programms im 
Detail erkläre. In Zeile 300 starten Sie die FOR...-NEXT-Schleife. Der Computer 
beginnt mit Z = 1, d. h. er durchsucht die erste Zeile nach N. 

Dort steht für SB(1,1) die Zahl 19. Angenommen, Sie haben oben für N 21 
eingegeben. Der Computer stellt dann in Zeile 310 fest, daß SB(1,1) NICHT 21 ist. 
Zeile 320 schickt ihn erneut in die Schleife; diesmal mit Z = 2. Wieder fällt der 
Vergleich in Zeile 310 negativ aus; der Computer setzt das Programm fort mit 
Z = 3. Und nun findet er für SB(3,1) die Zahl 21. Darauf stellt er in Zeile 316 fest: 
SB(3,1) IST GLEICH N - nämlich 21 = 21 - und er springt befehlsgemäß zu Zeile 
350, die ihm aufträgt, Scheck-Nr, Datum und Betrag zu drucken. Das tut er - aber 
nur für die Zeile, in der er N = 21 gefunden hat. 


Geben Sie doch mal für N einfach 56 ein! Sie wissen, daß diese Zahl NICHT in 
Ihrer Liste enthalten ist. Der Computer wird das auch herausfinden und ausgeben: 
?BS ERROR IN 350 (Diese Aussage variiert je nach Computertyp!) 


Das bedeutet sinngemäß: Die Eingabe (für N) liegt außerhalb des DIMensionierten 
Bereichs! 
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Sie können ihm auch beibringen, in solchen Fällen eine verständlichere Bot- 
schaft auszugeben. Ergänzen Sie das Programm um: 


330 PRINT”DER SCHECK NUMMER”;N;”IST NICHT IN DER LISTE!” 
340 END 


Nun folgt ein Programm, das Schecks, die an einem bestimmten Tag ausgegeben 
wurden, auf Verlangen ausdruckt. 


266 INPUT”WELCHES AUSSTELLDATUM ";D 

220 

310 IF SB(Z,2) = D THEN PRINT SB(Z,1),SB(Z,3) 

326 NEXT Z 

330 

340 

350 

Auch dieses Programm wollen wir uns im Detail ansehen. Sie starten; es er- 
scheint: 

WELCHES AUSSTELLDATUM? 

Geben Sie ein 19. 12 

Dieses Mal durchsucht der Computer zeilenweise die Liste, ob er in der zweiten 
Spalte auf 19. 12 trifft. Das geschieht gleich dreimal, nämlich in den Zeilen 7, 8 
und 9. Und prompt wird er ausgeben: 


WELCHES AUSSTELLDATUM? 19. 12 


25 125.3 
26 800 
27 725.85 


Beachten Sie, daß Sie in Zeile 316 nur verlangt hatten, SB(Z,1) und SB(Z,3) zu 
drucken! 
Zum Schluß wollen wir das letzte Programm noch ein wenig verzieren: 


195 PRINT "AUFLISTUNG DER AUSGESTELLTEN SCHECKS.” 

216 PRINT 

220 PRINT 

236 PRINT ”AM”; D; "WURDEN FOLGENDE SCHECKS AUSGESTELLT:” 

246 PRINT "”=====================2===2==2========= 


250 PRINT ”SCHECK-NR”, "BETRAG (DM)” 


350 FOR X = 1 TO 1666: NEXT 
360 GO TO 195 


355 CLS 
370 END 
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35.2 Immer noch: Lagertechnik! 


Bei Variablen hatten Sie gelernt, daß man durch Anhängen eines Dollar-Zeichens 
($) an einen Variablennamen den Computer darauf vorbereitet, daß der Variablen 
eine Zeichenkette — ein String — zugewiesen werden soll. 

Das geht bei indizierten Variablen ganz genauso; am besten, Sie probieren das 
gleich einmal aus! 
NEW 

5CLS 

10 DIM A$(16) 
260 FOR X = 1 TO 16 
30 INPUT A$(X) 
46 NEXT X 
Mit diesem Programm bereiten Sie den Computer darauf vor, nacheinander 10 


Strings aufzunehmen, für die er Platz im Speicher bereithalten soll. 
Für die AUSGABE setzen Sie Ihr Programm fort: 


45 CLS 
50 FORX = 1 TO 10 
66 PRINT X,A$(X) 


70 NEXT X 

80 END 

IHRE EINGABE DIE COMPUTER-AUSGABE 
? SOMMER 1 SOMMER 

? WINTER 2 WINTER 

? HERBST 3 HERBST 

? ENTER 4 

? FRUEHLING 5 FRUEHLING 
i ENTER 6 

ah ENTER : 5 

? NEIN 9 NEIN 

? VIELLEICHT 16 VIELLEICHT 


In der dritten, sechsten und siebten Zeile hatten Sie NICHTS eingegeben, sondern 
gleich mit ENTER weitergeschaltet. Sie erkennen bei der Ausgabe, daß der 
Computer genau diese Speicherplätze auch freigehalten hat. 

Nun MISCHEN wir in einem Programm einmal numerische und Stringvariable; 
das sollte Ihnen nicht schwer fallen! 
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16 DIM Z$(5) : DIM N(5) 

26 FORA=1TO5 

36 INPUT Z$(A) : INPUT N(A) 

46 NEXT A 

506 PRINT "MARKE”,”BESTAND” 

66 PRINT” ==================== === === === === ======" 
70FORA=1TO5 

860 PRINT Z$(A),N(A) 

96 NEXT A 

106 END 

Wenn Sie dieses Programm starten, wird es 10 Fragen stellen. Und zwar abwech- 
selnd je 5 für Z$(...) und für N(...). Und in dieser Reihenfolge müssen Sie auch 
antworten! 


Also: 


? ERNTE 

? 106 

? REVAL 

? 6 

? WINSTON 
?25 

? HB 

?15 

? DUNHILL 
? 27 


Und so wird diese „Mini-Liste“ ausgegeben: 


MARKE BESTAND 
ERNTE 100 
REVAL Ö 
WINSTON 25 

HB 15 
DUNHILL 27 


Nach dieser Einstimmung wollen wir uns auf den folgenden Seiten wieder einmal 
ein größeres Programm vornehmen, das Sie als Telefonverzeichnis nutzen kön- 
nen. Falls Sie Präsident eines Vereins sind, können Sie — nach entsprechender 
Abwandlung — auch eine Mitgliederliste daraus bauen. Oder... oder... Ihrer 
Phantasie sind keine Grenzen gesetzt! 
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35.3 Der Computer als Telefonverzeichnis 


Wir wollen uns nun zusammen ein größeres Projekt vornehmen: Der Computer 
soll unser Telefonverzeichnis verwalten. 

Bevor Sie dabei eine Menge lernen, lassen Sie mich zwei Vorbemerkungen 
machen: 


® Wir waren uns darüber einig, daß Sie noch „Einsteiger“ sind. Da macht es 
wenig Sinn, mit Ihnen jetzt schon in die hohe Schule der Datenverarbeitung 
einsteigen zu wollen. Das Programm, das wir entwickeln wollen, kann deshalb 
halbwegs professionelle Ansprüche kaum erfüllen. Aber statt sich darüber zu 
ärgern, mit sich, dem Programm oder mit diesem Buch zu hadern, sollten Sie 
am Ende stolz darauf sein, was Sie mit den paar Basic-Worten, die Sie bis 
hierher kennengelernt haben, schon alles zuwege bringen. Zählen Sie doch 
mal, wieviel Worte inzwischen Ihr Basic-Wortschatz umfaßt; Soll ich Ihnen 
verraten, wieviele es gibt? Mindestens 250! (Wenn auch nicht alle bei einem 
Computer!) Also: Friede? 

®@ Ich habe dieses Programm für den und auf dem C-64 geschrieben. Wenn Sie es 
übernehmen wollen, dann tippen Sie das „Listing“ ab, das am Ende dieses 
Kapitels steht. Im folgenden Text zeige ich Ihnen nur kleine Portionen daraus, 
um Ihnen wichtige Details zu erklären. 
Die Besitzer eines CPC 464 — oder eines anderen Computers — werden kaum 
Schwierigkeiten haben, das Programm ebenfalls nachzuvollziehen, da das 
Basic des C-64 recht bescheiden ist. Was der kann — können andere auch! 


Was wollen wir eigentlich? 


Nicht nur beim Programmieren, sondern überhaupt: Bevor Sie etwas anfangen, 
sollten Sie sich darüber klar werden, WAS Sie wollen und auf welchem Wege Sie 
Ihr Ziel zu erreichen wünschen. 

Wir wollen hier: 


® Ein „Telefonbuch“ anlegen, das folgende Daten umfaßt: 
Fam.-Name/Vorname ı z. B. WEBER HORST 
Straße/Hausnummer ı z. B. STEINWEG 27 
PLZ/Wohnort ız. B. 1234 BREMEN 
Vorwahl/Telefonnummer z. B. 65371/12345 


® Als Hilfsmittel wollen wir uns der „Lagertechnik“ bedienen, die Sie soeben 
gelernt haben. 
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Jetzt zum: Wie machen wir das? 

Die populärste Methode ist (leider), sich auf den armen Computer zu stürzen 
und drauflos zu „programmieren“. (So etwas nennt man auch „hacken“.) Tun 
Sie’s nicht! 

Merke: Erst denken, dann tippen! 

Wir überlegen uns zunächst, wie das Telefonverzeichnis beschaffen sein soll. 
Das Programm dazu muß sicher: 


ERSTENS: einen Abschnitt enthalten, mit dessen Hilfe wir unseren Daten- 
schatz — vielleicht aus Ihrem persönlichen Notizbuch - in den 
Speicher des Computers übertragen. 

ZWEITENS: Sind die Daten erst drin (im Computer), muß ein weiterer Teil des 
Programms es ermöglichen, die gespeicherten Daten auch wieder 
anzusehen. 

DRITTENS: Sicher wäre es nützlich, mal eben die Telefonnummer oder die 
Adresse nur unseres Freundes SCHULZE aufzusuchen. 

VIERTENS: Da Freund Schulze ja auch einmal 
umziehen kann, sollte es noch mög- 


lich sein, einmal gespeicherte Daten ERBE 
wieder zu ändern. Programm -Vorbereitung 
FUNFTENS: 


...Sie könnten sich noch einige „Fea- 
tures“ ausdenken, die Ihr Programm 


erfüllen soll. Aber wir wollen’s da- ATZE = ne 
Pi uswanl-Menue 
bei bewenden lassen! 


Jede der gewünschten Eingenschaften wird 
einen eigenen, kleinen Programmblock füllen. Da 


Ab Zeile 1408 
Ei . " Ri . Anlegen des "Telefonbuches“ 
wir jetzt noch nicht übersehen können, wie lang 


die werden, müssen wir ein paar großzügige Schät- 


zungen machen. Das ist wichtig, damit Sie später Ab Zeile 2980 
nicht mit den Programm-Nummern ins Schleu- Ansehen des "Telefonbuches” 
dern kommen. Beim C-64 kann man nämlich lei- 
der das Programm nicht „um-numerieren“; der PET 
CPC-464 und andere sind da besser dran. Auch ist Sichern Telefonbuan” 
es sehr hilfreich, sich das Programm in groben 
Kästchen zu entwerfen. Ich zeige Ihnen das mal! 
Ab Zeile 40ßB 
Änderungen von Einträgen 
Abb. 27 Das ist der Grobentwurf unseres 
„Telefonbuch-Programms“ Ab Zeile SDRD 
Fehlermeldung 
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Nun wollen wir uns die einzelnen Programmabschnitte vornehmen! 


Die Vorbereitungen 


26 CL$=CHR$(147) 

30 B$=" TELEFONVERZEICHNIS” 

40 C$=" BEDIENUNGSANLEITUNG” 

106 REM #**** BENUTZER-ABFRAGE Bess sssssaBBBRRRIHIRRk 
116 PRINT CL$ 

120 PRINT A$ 

136 PRINT : PRINT 

146 PRINT”’BITTE GEBEN SIEEIN .......... 2 cc seeeneeeeeeeeeennnnenn ” 
156 PRINT”’FUER WIEVIELE PERSONEN DAS VERZEICHNIS” 

166 PRINT’GEWUENSCHT WIRD! ....... 222 ooueeeeeeeeeeeeeennnnee nn 5 
176 PRINT : PRINT 

180 PRINT A$ 

196 INPUT Z 

250 REM »#* DIMENSIONTEREN BR RBB 
260 DIM N$(Z,4) 

300 REM ek MEN UE Rp 


READY. 


Hier zeige ich Ihnen zunächst etwas sehr Nützliches: 

In Zeile 10 heißt es: A$="==========,,,usw. 

Hier haben wir also 46 Gleichheitszeichen (eine Zeile voll) als String A$ 
vorbelegt. Wir wollen das im Programm dazu benutzen, um Zeilen zu unterstrei- 
chen. Statt also künftig im Programm 46 Gleichheitszeichen zu tippen, wenn wir 
unterstreichen wollen, schreiben wir nur noch PRINT A$. 

Genauso machen wir es mit dem „Tafelauswischen“. Statt jedesmal dafür 
PRINT CHR$(147) zu tippen, sagen wir bloß noch PRINT CL$. (Siehe Zeile 20.) 

Und so weiter. Wenn Sie das Programm später aufmerksam durchgehen, 
werden Sie erkennen, daß ich Ihnen noch einige Möglichkeiten für derartige 
Arbeitserleichterungen gelassen habe. 

Es folgt in den Zeilen 140...190 eine Frage an Sie. Für wie viele Personen soll 
das Verzeichnis angelegt werden? Haben Sie 30 Freunde oder 300? Nun brauchen 
Sie die natürlich nicht aus Ihrem Notizbuch abzuzählen. Es genügt „nur so 
ungefähr“. Wir brauchen jedenfalls diese Angabe, weil wir in Zeile 260 unseren 
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Speicherplatz DIMensionieren wollen (und müssen). Geben Sie doch einfach 106 
ein! 
Und damit sind die Vorbereitungen bereits abgeschlossen. 


Das Menü 

Erinnern Sie sich an die vier Operationen, die wir mit unserem Programm 
betreiben wollten? Für diese entwerfen wir zunächst einmal ein „Menü“, nach 
dem Sie später auswählen können, was Sie gerade mit dem Programm machen 
wollen. 


300 REM Berk MEN UE Rp eppRBRRRRRRRRRRRRRRRRRRRRRRRRRR 
365 PRINT CL$ 

316 PRINT A$ 

326 PRINT 

336 PRINT C$ 

340 PRINT 

356 PRINT A$ 

366 PRINT”VERZEICHNIS ANLEGEN ........:22222unnneeeeeee rennen 1” 
376 PRINT 

380 PRINT”VERZEICHNIS ANSEHEN ............22neeeeeeeeeeeennnnn 2” 
3960 PRINT 

406 PRINT”’EINE ADRESSE SUCHEN. .........222ccccseeeeeee nennen 3” 
410 PRINT 

420 PRINT”’EINE ADRESSE AENDERN ......:: 222222 cseeeeeeeeen nenn 4” 
430 PRINT 

435 PRINT A$ 

438 PRINT 

440 PRINT”BITTE TIPPEN SIE DIE ZIFFER” 

456 PRINT”FUER DAS GEWUENSCHTE PROGRAMM !” 

460 PRINT 

476 PRINT” DANACH ’RETURN’” 

480 INPUTQ 

490 IF Q<1 THEN 5006 

566 IF Q>4 THEN 5066 

510 ON Q GOSUB 1060,2006,3000,4000 

526 GOTO 306 


READY. 


Das Menü bietet Ihnen wohl keine Besonderheiten? 
Achten Sie auf: 
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© In der Zeile 510 steht ON Q GOSUB (statt, wie Sie das schon kennen: ON Q 
GOTO). Das läßt darauf schließen, daß wir die einzelnen Programmteile als 
Unterprogramme entwerfen wollen. 

® Aus jedem Unterprogramm kehrt man bekanntlich zurück. Hier kommt man 

aus jedem der folgenden Unterprogramme in die Programmzeile 520 „heim“, 
und die schickt das Programm wieder an den Anfang des Menüs. 
Das hat folgenden Grund: Sie kommen praktisch dadurch aus dem Gesamtpro- 
gramm nicht mehr heraus. Es sei denn, Sie beenden Ihre Arbeit bewußt durch 
Druck auf RUN/STOP. Der Vorteil ist (hier), daß wir nicht in den READY- 
Zustand des Computers kommen wollen, bei dessen Erreichen er bekanntlich 
alle eingegebenen Daten wieder „vergessen“ hat. 

® In den Zeilen 496 und 560 ist noch unsere Sperre gegen Falscheingabe von 
Kennziffern untergebracht, deren Text ich Ihnen jetzt einmal zeige. 


50600 REM ++ FEHLERMELDUNG RRRskssssssssssss RR 
5616 PRINT CL$ 

5020 PRINT A$ 

5630 PRINT : PRINT 

5046 PRINT”SIE HABEN EIN NICHT EXISTIERENDES” 

5056 PRINT”PROGRAMM AUFGERUFEN !” 

5060 PRINT : PRINT 

5676 PRINT A$ 

5086 FOR X=1 TO 20600 : NEXT 

5090 GOTO 306 


READY. 


Sie legen das Telefonbuch an 


In diesem Teil des Programms vertrauen Sie Name, Adresse und Telefonnummer 
Ihrer Freunde Ihrem Computer an. Sie hatten auf meinen Rat in Zeile 190 für 100 
Datensätze DIMensioniert. Das Problem für Sie: Was passiert, wenn Sie nur 45 
oder 29 Freunde haben? 

Sehen Sie sich das Programm an: 


1000 REM »e##* UPRO DATENEINGABE Be B BREI 
1605 FOR I=1 TO Z 

1016 PRINT CL$ 

1615 PRINT A$ 

1626 PRINT 

1630 PRINT”’PROGRAMM VERZEICHNIS ANLEGEN” 
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1640 PRINT 

16050 PRINT”WENN SIE DIE EINGABE BEENDEN WOLLEN ... .... 222 c22.20.. x 
1660 PRINT”GEBEN SIE ’ENDE’EIN ANSTELLE. ...........2cccceseecc 5 
1070 PRINT”DES FAMILIEN-NAMENS !” 

10806 PRINT 

1696 PRINT A$ 

1116 PRINT’”NAME / VORNAME ..... “ 

1115 PRINT”(KEINE KOMMA’S !)” 

1120 INPUT N$(1,1) 

1130 IF N$(1,1)="ENDE” THEN 1506 

1146 PRINT”’STRASSE /HAUSNR..... a“ 

1156 INPUT N$;(I,2) 

11668 PRINT’PLZ/ORT.............. 2 

1176 INPUT N$(I,3) 

1186 PRINT’VORWAHL / TELEFON .. ” 

1190 INPUT N$(I,4) 

1260 NEXT I 

1500 N=I-1 

1510 PRINT CL$ 

1526 PRINT A$ 

1536 PRINT 

1546 PRINT”DIE EINGABE IST ABGESCHLOSSEN !” 

1556 PRINT”SIE HABEN ”;N;” ADRESSEN EINGEGEBEN !” 
1566 PRINT 

1576 PRINT A$ 

1586 PRINT:PRINT 

1596 PRINT”DRUECKEN SIE ’RETURN’ !” 

16066 INPUT Q 

1616 RETURN 


READY 


© Das Eingeben der Daten beginnt in einer FOR...NEXT...-Schleife in der Zeile 
1605. Diese läuft entsprechend unserer Vereinbarung ...TO Z, also bis 160 und 
erlaubt die Eingabe von max. 100 „Datensätzen“. 


® Schauen Sie Zeile 1130 an! Dort steht im Klartext: 
Sobald anstelle eines Familiennamens „ENDE“ eingegeben wird, wird die 
Eingabe beendet. 
In diesem Falle wird zu der Programmzeile 1506 verzweigt. Diese heißt: 
N=I-1. Warum? 
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Wenn Sie z. B. nach dem 34. Datensatz das Eingabespiel abbrechen wollen, 
dann geben Sie doch anstelle des 35. Namens „ENDE“ ein. Das heißt, I istan 
dieser Stelle =35; die Zahl der tatsächlich vorhandenen Datensätze damit 
N=I-1. 
Das wird Ihnen in Zeile 1540...1550 noch einmal bestätigt. Im weiteren Verlauf 
des Programms laufen dann die FOR...NEXT...-Schleifen nicht mehr bis Z, 
sondern nur noch bis N; bis zur Anzahl der tatsächlich vorhandenen Daten- 
sätze. 

® Beherzigen Sie die Aufforderung in Zeile 1115! 
Diese schreibt Ihnen vor, den Namen so einzugeben: MEIER EMIL und nicht 
so: MEIER,EMIL! 
Das ist eine „Marotte‘ des Befehls INPUT, damit kann man keine Operations- 
zeichen in einen String übernehmen. 
Versuchen Sie doch einmal: MEIER,EMIL! 
Je nach Computer erhalten Sie die Meldung: 
REDO FROM START... oder EXTRA IGNORED... 
Womit Ihnen Ihr Apparat signalisiert, daß er diese Eingabe nicht akzeptiert. 
Bitte gut merken! 

®@ In Zeile 1596 (und vielen, später folgenden) steht: INPUT Q. 
Es kommt aber in dem ganzen Programm keine Variable mit dem Namen Q vor! 
Wir benutzen hier diese Wendung, um das Computerprogramm so lange 
anzuhalten, bis Sie die „ENTER“-Taste gedrückt haben. Sobald Sie das tun, 
geht’s zurück ins Menü. 


Sie betrachten sich Ihr Verzeichnis. 


Das können Sie mit dem folgenden Programmteil. 


2060 REM ek UPRO VERZEICHNIS ANSEHEN BRBBRRRKRREEEERRRREK 
2016 PRINT CL$ 
2620 PRINT A$ 
2630 PRINT B$ 
2046 PRINT A$ 
2650 FOR I=1 TON 
2666 PRINT N$(I,1) 
2676 PRINT N$(I,2) 
2686 PRINT N$(I,3) 
2696 PRINT N$(I,4) 
2160 PRINT 

21106 NEXT I 

2126 PRINT 
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2130 PRINT”DRUECKEN SIE ’RETURN’ !” 
2140 INPUTQ 
2150 RETURN 


READY. 


© Sehen Sie, daß jetzt die Schleife nur noch ...TO N läuft? (Zeile 2050) 
© Die Ausgabe geschieht in den Zeilen 2056...2110. Und zwar in der Form: 


MEIER EMIL 
STEINSTR. 123 
1234 BREMEN 
0123/4321 


Ich gebe zu, daß das nicht besonders schön ist! Wenn Sie etwa 27 Adressen 
gespeichert haben, rauscht die ganze Ausgabe über den Bildschirm und Sie 
sehen allenfalls die Daten Ihrer Freunde Nr. 25, 26, 27. 
Vielleicht können Sie das selbst veredeln? Dazu ein paar Tips: 
— Versuchen Sie die Daten nebeneinander auf den Schirm zu bringen! 
— Da das auch nicht allzuviel bringt: entwerfen Sie eine Routine, die: 
— drei Datensätze auf den Schirm bringt und dann anhält... 
— Sie auffordert, „RETURN“ zu drücken... 
— daraufhin die nächsten drei Datensätze anzeigt und wieder stehen- 
bleibt usw. Sie können dann in Ihrem Telefonbuch „blättern“ (aller- 
dings nur nach vorn!). 


Sie suchen Ihren Freund Schulze 


Dazu dient das folgende Programm: 


3000 REM + UPRO SUCHEN BEE EEE 
3616 PRINT CL$ 

3626 PRINT A$ 

3636 PRINT B$ 

3046 PRINT 

3656 PRINT”GEBEN SIE DEN FAM.-NAMENEIN ....... 22222 2senneeenenn = 
36060 PRINT”DEN SIE SUCHEN !” 

3070 PRINT A$ 

36080 PRINT : PRINT 

3696 INPUT X$ 

3106 PRINT CL$ 


185 


35 Lagertechnik 


3110 FOR I=1 TON 

3126 IF N$(1,1)=X$ THEN 3506 

31360 NEXT I 

3140 PRINT CL$ 

3156 PRINT”DER GESUCHTE NAME ”;X$ 
3160 PRINT”’STEHT NICHT IM VERZEICHNIS!” 
3176 PRINT : PRINT 

3180 PRINT”DRUECKEN SIE ’RETURN’ !” 
3196 INPUTQ 

3260 RETURN 

3560 PRINT CL$ 

3510 PRINT : PRINT 

35260 PRINT”SIE HABEN AUFGERUFEN :” 
3536 PRINT A$ 

3540 PRINT : PRINT 

3550 PRINT N$(1,1) 

3560 PRINT N$(I,2) 

3570 PRINT N$(I,3) 

3580 PRINT N$(I,4) 

3590 PRINT : PRINT 

3660 PRINT”DRUECKEN SIE ’RETURN’ !” 
3610 INPUT Q 

3620 RETURN 


READY. 


© Für „Das Suchen in Listen“ ist Folgendes so wichtig, daß Sie es sich unbedingt 


merken sollten: 


Die „Suchformel“ muß haargenau übereinstimmen mit dem gespeicherten 
Begriff, nach dem Sie suchen. Weil der Computer den gespeicherten Begriff 
mit dem Suchbegriff Zeichen für Zeichen vergleicht; nur bei völliger Überein- 


stimmung verläuft die Suche erfolgreich! 
Sie haben beispielswese gespeichert: 


MEIER EGON 


Sie suchen danach und geben in Zeile 3096 als Suchbegriff ein: 


MEIER EGON 


MEIER EGON (Hier hatten Sie zwischen MEIER und EGON 2 Blanks!) 


EGON MEIER 
MAIER EGON 
MAYER EGON 
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Raten Sie, bei welcher Eingabe Ihnen der Computer etwas ausgibt und bei 
welcher er Ihnen höhnisch sagt: DER GESUCHTE NAME STEHT NICHT IM 
VERZEICHNIS! 

© Erkennen Sie, wie das Programm arbeitet? 

In einer FOR...NEXT...-Schleife wird die gesamte Datensammlung nach X$ 

durchsucht (Suchformel in Zeile 3120). 

— Wird der Name gefunden, so erfolgt die Ausgabe ab Zeile 3500. 

— Wird er nicht gefunden -, weil er nicht in der Liste enthalten ist oder, weil 
Sie einen „falschen“ Suchbegriff X$ verwendet haben -—, merkt das Ihr 
Apparat, sobald er in Zeile 3130 angekommen ist. In diesem Falle hat er die 
gesamte Liste erfolglos durchsucht und tut Ihnen das kund durch den Text 
in Zeilen 3156/3160. 


Und nun ändern Sie in der Liste! 


Das geschieht mit dem letzten Programmblock. 


4000 REM ##*** UPRO AENDERN BEE RBB 
4616 PRINT CL$ 

4020 PRINT A$ 

4030 PRINT B$ 

4040 PRINT 

4050 PRINT” AENDERUNGS-PROGRAMM’” 

4666 PRINT”RUFEN SIE FAM.NAME / VORNAME AUF” 
4070 PRINT”BEI DEM SIE AENDERN WOLLEN !” 
4080 PRINT 

4090 PRINT A$ 

4166 INPUT Y$ 

4110 FOR I=1 TON 

4120 IF N$(1,1)=Y$ THEN 45066 

4130 NEXT I 

4140 PRINT CL$ 

4156 PRINT A$ 

4160 PRINT”DER AUFGERUFENE NAME ”;Y$ 
4170 PRINT”IST NICHT IM VERZEICHNIS !” 
4180 PRINT A$ 

4190 PRINT : PRINT 

4200 PRINT”DRUECKEN SIE ’RETURN’ !” 

4216 INPUT Q 

4220 RETURN 

45060 PRINT CL$ 
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4516 PRINT : PRINT 
4520 PRINT”GEBEN SIE DIE NEUEN DATEN EIN !” 
4530 PRINT : PRINT 


4540 INPUT”NAME / VORNAME ";N$(L1) 
4550 INPUT”STRASSE / HAUSNUMMER ";N$(I,2) 
4566 INPUT”PLZ /ORT ";N$(1,3) 
4570 INPUT”’VORWAHL / TELEFON ";N$(1,4) 


4580 PRINT : PRINT 
4590 PRINT”DER NEUE EINTRAG LAUTET :” 


4606 PRINT 

4610 PRINT N$(I,1);” ”N$(1,2) 
4620 PRINT N$(1,3);”” ”;N$(14) 
4636 PRINT 


4640 PRINT”DRUECKEN SIE ’RETURN’ !” 
4650 INPUT Q 
4660 RETURN 


READY. 


© Bei diesem Programm erkennen Sie eine gewisse Ähnlichkeit mit dem „Such- 
programm“. 
Vergleichen Sie die beiden Teile miteinander! 

@® Nehmen wir an, Sie hätten gespeichert: 


WEBER HEINZ 
POSTWEG 7 
1234 KOELN 
0444/12345 


Ihr Freund bekommt nun - weil die Post eine Umstellung vorgenommen hat — 
lediglich die neue Telefonnummer 0444/54321. 
So, wie unser Programm ist, müssen Sie den ganzen Datensatz neu eingeben! 
Also auch die richtigen Eintragungen noch einmal wiederholen. 
Das ist wieder ein Punkt, über den ein Profi die Nase rümpfen würde. Aber 
lassen Sie sich davon nicht entmutigen! 

© Sehen Sie, wie jetzt das „Ausgabeformat“ in den Zeilen 4610/4620 geändert 
worden ist? 


So, das war’s. Ich denke, Sie haben Fantasie genug, dieses Programm auch für die 


Verwaltung Ihrer Briefmarken- oder Schallplattensammlung umzustricken. Oder 
für die Speicherung von weiteren Daten Ihrer Freunde: Blutgruppe, Schuhnum- 
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mer, Lieblingsspeise usw. Denken Sie an die Abbildungen unserer Lagerregale; 
Sie können dann die Liste beliebig erweitern. 
Ich schlage Ihnen jedenfalls vor: 


— Tippen Sie das ganze Programm ein! 

— Testen Sie, ob jedes Teilprogramm zufriedenstellend läuft bzw. ob Sie Eingabe- 
fehler gemacht haben! 

— Speichern Sie das Programm auf Kassette/Diskette! 

— Und dann nehmen Sie sich Abschnitt für Abschnitt vor und versuchen, das 
Programm zu erweitern, zu verändern, zu verbessern und und und... 
Was glauben Sie, wie das übt! 


Und hier — wie versprochen — noch einmal das Gesamtprogramm. 


5 REM ###+* VORBELEGUNG VON STRINGS MR RBB 


10 A$="=================== === === === ========>_}" 
26 CL$=CHR$(147) 

30 B$=" TELEFONVERZEICHNIS” 

46 C$=" BEDIENUNGSANLEITUNG” 


100 REM »**** BENUTZER-ABFRAGE RRakakakakakakakakakakakakakakalakakakalakakakakakakakaak 
116 PRINT CL$ 

126 PRINT A$ 

136 PRINT : PRINT 

1468 PRINT”’BITTE GEBEN SIEEIN .......... 2.2 seeeccceeeeeeeen rn Z 
156 PRINT”FUER WIEVIELE PERSONEN DAS VERZEICHNIS” 

166 PRINT"’GEWUENSCHT WIRD! ....... 222 eeeeeeeeeeeneenenner nenn u 
176 PRINT : PRINT 

186 PRINT A$ 

196 INPUT Z 

250 REM »Bek DIMENSIONTEREN Be EEE EEK 
260 DIM N$(Z,4) 

300 REM sek MEN UE Bssspispsesssaaaklaklaklakakakakakakk 
365 PRINT CL$ 

316 PRINT A$ 

326 PRINT 

330 PRINT C$ 

340 PRINT 

356 PRINT A$ 

366 PRINT”VERZEICHNIS ANLEGEN ........22.2ueeeeeeeeeeeee nenn 1” 
376 PRINT 

386 PRINT”VERZEICHNIS ANSEHEN .........22.2ccc seen 2” 
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396 PRINT 

4606 PRINT”EINE ADRESSE SUCHEN... ....::. cc cc c seen 3” 
416 PRINT 

420 PRINT”’EINE ADRESSE AENDERN ......:. css coee een 4” 
430 PRINT 

435 PRINT A$ 

438 PRINT 

440 PRINT”BITTE TIPPEN SIE DIE ZIFFER” 

4560 PRINT”FUER DAS GEWUENSCHTE PROGRAMM !” 

460 PRINT 

476 PRINT” DANACH ’RETURN’” 

480 INPUTQ 

496 IF Q<1 THEN 5006 

566 IF Q>4 THEN 5060 

516 ON Q GOSUB 1060,2000,3000,4000 

5260 GOTO 3060 

1000 REM x***** UPRO DATENEINGABE Be BsBssaksaaksakaksakslaksiskakslaksiikksnkankk 
1605 FOR I=1 TO Z 

16010 PRINT CL$ 

1015 PRINT A$ 

1626 PRINT 

10360 PRINT”’PROGRAMM VERZEICHNIS ANLEGEN” 

1646 PRINT 

1056 PRINT”WENN SIE DIE EINGABE BEENDEN WOLLEN ...... 222222... ” 
1060 PRINT”’GEBEN SIE ’ENDE’ EIN ANSTELLE... ..... 2. cc L 
1676 PRINT”’DES FAMILIEN-NAMENS !” 

16860 PRINT 

1690 PRINT A$ 

1116 PRINT”NAME / VORNAME ..... ze 

1115 PRINT”(KEINE KOMMA’S !)” 

1120 INPUT N$(I,1) 

1136 IF N$(1,1)="ENDE” THEN 150 

1140 PRINT”STRASSE /HAUSNR..... Z 

1156 INPUT N$(I,2) 

1166 PRINT’PLZ/ORT.............. r 

1176 INPUT N$(I,3) 

1186 PRINT”’VORWAHL / TELEFON .. ” 

1196 INPUT N$(I,4) 

1206 NEXT I 

1566 N=I-1 
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1516 PRINT CL$ 

1526 PRINT A$ 

1530 PRINT 

1546 PRINT”DIE EINGABE IST ABGESCHLOSSEN !” 

1556 PRINT”SIE HABEN ”;N;” ADRESSEN EINGEGEBEN !” 

1560 PRINT 

1576 PRINT A$ 

1580 PRINT:PRINT 

1590 PRINT”’DRUECKEN SIE ’RETURN’ !” 

1666 INPUT Q 

1610 RETURN 

2000 REM #**** UPRO VERZEICHNIS ANSEHEN BB BEER 
2016 PRINT CL$ 

2626 PRINT A$ 

2636 PRINT B$ 

2646 PRINT A$ 

2650 FOR I=1 TON 

2060 PRINT N$(I,1) 

2676 PRINT N$(1,2) 
2686 PRINT N$(1,3) 
2690 PRINT N$(I,4) 
2160 PRINT 

2110 NEXT I 

2120 PRINT 

2136 PRINT”’DRUECKEN SIE ’RETURN’ !” 

2146 INPUT Q 

21560 RETURN 

30006 REM #ekkk UPRO SUCHEN BER RBB 
3616 PRINT CL$ 

3626 PRINT A$ 

3030 PRINT B$ 

3640 PRINT 

3050 PRINT”GEBEN SIE DEN FAM.-NAMENEIN ...... 2222222 x 
36060 PRINT”DEN SIE SUCHEN !” 

3070 PRINT A$ 

36080 PRINT : PRINT 

36090 INPUT X$ 

3160 PRINT CL$ 

3110 FOR I=1 TON 

3126 IF N$(1,1)=X$ THEN 3500 

3136 NEXT I 
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3140 PRINT CL$ 

3156 PRINT”DER GESUCHTE NAME ”;X$ 
31660 PRINT”’STEHT NICHT IM VERZEICHNIS!” 
3176 PRINT : PRINT 

3186 PRINT”’DRUECKEN SIE ’RETURN’ !” 
3196 INPUT Q 

3206 RETURN 

35006 PRINT CL$ 

3516 PRINT : PRINT 

3520 PRINT”’SIE HABEN AUFGERUFEN :” 
3530 PRINT A$ 

3546 PRINT : PRINT 

3556 PRINT N$(I,1) 

3560 PRINT N$(I,2) 

3576 PRINT N$(I,3) 

3586 PRINT N$(I,4) 

3596 PRINT : PRINT 

3606 PRINT”’DRUECKEN SIE ’'RETURN’ !” 
3616 INPUT Q 

3626 RETURN 

4000 REM ##*+** UPRO AENDERN Reese HH 
4016 PRINT CL$ 

4026 PRINT A$ 

4030 PRINT B$ 

4040 PRINT 

4056 PRINT” AENDERUNGS-PROGRAMM” 
40606 PRINT”’RUFEN SIE FAM.NAME / VORNAME AUF” 
4076 PRINT”BEI DEM SIE AENDERN WOLLEN !” 
4080 PRINT 

4096 PRINT A$ 

4166 INPUT Y$ 

4110 FOR I=1 TON 

4120 IF N$(1,1)=Y$ THEN 4560 

4130 NEXT I 

4140 PRINT CL$ 

4150 PRINT A$ 

4160 PRINT”DER AUFGERUFENE NAME ";Y$ 
4176 PRINT”’IST NICHT IM VERZEICHNIS !” 
4180 PRINT A$ 

4196 PRINT : PRINT 

4200 PRINT”DRUECKEN SIE ’RETURN’ !” 
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4210 INPUTQ 

4220 RETURN 

4506 PRINT CL$ 

4510 PRINT : PRINT 

4526 PRINT”GEBEN SIE DIE NEUEN DATEN EIN !” 
4530 PRINT : PRINT 


4540 INPUT”NAME / VORNAME ";N$(L1) 
45560 INPUT”STRASSE /HAUSNUMMER ";N$(1,2) 
45660 INPUT”PLZ /ORT ";N$(1,3) 
4576 INPUT”’VORWAHL / TELEFON ";N$(1,4) 


4580 PRINT : PRINT 
4596 PRINT”DER NEUE EINTRAG LAUTET :” 


4600 PRINT 

4616 PRINT N$(L,1);” ”N$(L2) 
4620 PRINT N$(L3);””  ":N$(1,4) 
4630 PRINT 


4646 PRINT”DRUECKEN SIE ’RETURN’ !” 

4650 INPUT Q 

4666 RETURN 

5060 REM #»**** FEHLERMELDUNG RRskakakakakakakakalakakalakakalalalakaialakakakalaarrr 
5616 PRINT CL$ 

5020 PRINT A$ 

5030 PRINT : PRINT 

5646 PRINT”SIE HABEN EIN NICHT EXISTIERENDES” 
5050 PRINT”’PROGRAMM AUFGERUFEN !” 

5666 PRINT : PRINT 

5670 PRINT A$ 

5080 FOR X=1 TO 2000 : NEXT 

5696 GOTO 306 


READY. 


35.4 Der Computer als Lagerverwalter 
Erinnern Sie sich noch an die READ...DATA...-Technik? 
Dann werden wir diese jetzt einmal mit der „Lagertechnik“ kombinieren! 


NEW 
16 INPUT N 
20 DIM A(N) 
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Jetzt DIMensionieren Sie also A(1), A(2), A(3)...A(N) — wobei die ANZAHL der 
indizierten Variablen von N abhängt; N aber geben Sie in Zeile 10 nach Ihrer Wahl 
— oder besser, nach Ihren jeweiligen Bedürfnissen - ein. 
Damit der Computer mit uns „reden“ kann, ändern Sie: 
16 INPUT”WIEVIEL PLATZ SOLL ICH RESERVIEREN’”;N 
Das Programm geht weiter mit dem Eingabeteil: 
30 FORX=1TON 
46 INPUT A(X) 
50 NEXT X 
Und jetzt folgt der Ausgabeteil: 
55 PRINT "X=,,”A=" 
66 FORX=1TON 
76 PRINT X,,A(X) 
80 NEXT X 
96 END 


Machen Sie einmal einen Probelauf; damit es nicht langweilig wird, beantworten 
Sie die Frage nach N mit 5. 


Ihre Eingabe: ..die Ausgabe: 


Daten verarbeiten heißt ja wohl unter anderem, daß der Computer eingegebene 
Daten „verarbeiten“, mit ihnen etwas tun kann. Bis jetzt hat er sie meist nur 
hingeschrieben, von „Verarbeiten“ kann noch kaum die Rede sein. 

Wir wollen dem abhelfen und uns einmal die „Summe aller A“ ausrechnen 
lassen. Ergänzen Sie das letzte Programm wie folgt: 
52S=6 
55 PRINT”’X=",”A=",”S=” 
6585=5SH+A(X) 
76 PRINT X,A(X),S 


Geben Sie die gleichen Werte wie oben ein! (Also N = 5; A(X) von 10 bis 50) 
Sie werden folgendes Ergebnis erhalten: 
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X= A= S= 
1 10 10 
2 20 36 
3 30 60 
4 40 160 
b) 50 156 


Sie werden leicht im Kopf nachvollziehen können, daß der Computer in der 
letzten Spalte immer zu dem „aktuellen“ A die Summe der A aus den vorangegan- 
genen Zeilen hinzuaddiert hat. „Schuld“ daran ist unsere bekannte Schleife, in 
der zunächst S (für Summe) = 6 gesetzt und bei jedem weiteren Durchgang S um 
A(...) erhöht wurde. Dieses trickreiche Spiel sollten Sie sich merken! 


Und nun zu unserem Programm, das den Computer als Lagerverwalter zeigt. 

Und zwar soll er in einer Schraubengroßhandlung eine Liste für alle angebote- 
nen metrischen Sechskantschrauben führen. Sie wünschen sich die Ausgabe in 
folgendem „Format“: 


Maße Bestand E-Preis 


Lager.-Nr. 


Damit Sie nach Herzenslust in dieser Liste „blättern“ können, hatte ich die 
Verwendung einer DATEN-LISTE in Aussicht gestellt. Es ist immer gut, wenn 
man auf bereits erworbenes Wissen zurückgreifen kann. Wir tun das hier, indem 
wir aus unserem „Scheckbuch-Programm“ den Eingabeteil und die Datenliste 
übernehmen. Unser Ehrgeiz läßt natürlich wörtliches „Abschreiben“ nicht zu! 


NEW 

16 PRINT” LAGERLISTE 1” 

20 PRINT” _FUER METRISCHE SECHSKANTSCHRAUBEN” 

30 PRINT“ ======================= === === - === ----— 


40 PRINT 

50 PRINT 

66 INPUT”WIEVIELE POSITIONEN WERDEN GELAGERT”;N 

76 DIM SL$(N,4) 

Sie meinen, das wäre zuviel der Variation und Sie verstehen das nicht? Ich 
erklär’s Ihnen! 

Die Zeile 66 werden Sie sicher als die Frage des Computers erkennen, mit der er 
nach dem zu DIMensionierenden Platz fragt. Nun schauen Sie oben das von Ihnen 
gewünschte „Format“ an! Ganz offensichtlich brauchen Sie für jede Schrauben- 
Position EINE ZEILE. Also gilt die Frage der Zeilenzahl; Z(1...)...Z(N). 
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Jede Zeile hat aber 4 Spalten; deshalb ist S (für Spalte) immer 4 - egal, wie Sie N 
DIMensionieren! Somit heißt Zeile 70 im Klartext: „DIMensioniere (für) eine 
Schraubenliste mit N Zeilen und 4 Spalten...“ 

Können wir weitermachen? 


80 FORZ=1TON 
90 FORS=1TO4 
100 READ SL$(Z,S) 
110 NEXT S 
120 NEXT Z 


Nun können Sie daran gehen, Ihre Datenliste einzugeben. Da eine Sechskant- 
schraube mit 10 mm Durchmesser und 10 mm Länge unter Technikern eine 
Schraube M 10 x 10 ist, geben wir die Daten als Strings ein — deshalb SL$! Sie 
können natürlich die Liste beliebig lang machen; aber ich glaube, für Übungs- 
zwecke reichen 5 Positionen aus! 

400 DATA 200,M 16 x 15, 1066, 10 

410 DATA 201,M 10 x 20, 2006, 26 

426 DATA 262,M 20 x 16, 1606, 36 

430 DATA 263,M 20 x 56, 1506, 56 

440 DATA 204,M 20 x 100, 100, 26 


Noch etwas: regen Sie sich bitte nicht über die Preise auf! Das sind schlicht und 
einfach glatte Zahlen, die es Ihnen ermöglichen sollen, im Zweifel eine Kopfrech- 
nung zu machen! Und damit zur „Bearbeitung“! Zunächst wollen wir die Liste im 
ganzen sehen! Der Computer zeigt sie ihnen, wenn Sie folgendes Programm 
starten: 

150 Bitte Text von Zeile 10 eingeben! Dann weiter: 

166 ...wie Zeile 20 

176 ...wie Zeile 30 

166 PRINT 

176 PRINT 

180 PRINT”LAGER.-NR”,”MASSE”,”BESTAND”,”’E-PREIS” 

26060 FORZ=1TON 

210 PRINT SL$(Z,1),SL$(Z,2),SL$(Z,3),SL$(Z,4) 

220 NEXT Z 


Wenn Sie starten, geben Sie bitte in Zeile 60 für N die Zahl 5 ein! 
Vielleicht interessiert Sie eine genaue Beschreibung des Auslesevorgangs! 


1. Durchgang: 
Zeile 260: Z ist 1 
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Zeile 216: Der Computer schreibt: SL$(1,1),SL$(1,2),SL$(1,3),SL$(1,4), 
das heißt, von der ersten Zeile alle 4 Spalten. 
Zeile 220: heißt: zurück zu Zeile 266 
2. Durchgang: 
Zeile 266: Z ist 2 
Zeile 216: Der Computer schreibt SL$(2,1),SL$(2,2),SL$(2,3),SL$(2,4) 
Und so weiter... 
N-ter Durchgang: 
Zeile 200: Z ist N; das war aber von Ihnen in Zeile 60 auf 5 festgelegt! 
Zeile 216: Der Computer schreibt SL$(5,1)...usw. usw. 
Nun wollen Sie die Schrauben ja verkaufen — das heißt, der Bestand verändert 
sich laufend. Sie suchen also eine Möglichkeit, Ihre DATA-Liste bequem zu 
ändern. Das ist beim Arbeiten mit READ...DATA... ganz einfach! Schreiben Sie: 


LIST 466- 
..und schon haben Sie Ihre Datenliste vor sich! Wollen Sie in der letzten Zeile 
etwas ändern, so schreiben Sie: 

440 DATA... und nun den ganzen Text; d. h., was NICHT geändert werden soll, 
überschreiben Sie mit dem alten, was geändert werden soll, mit dem neuen Text! 

Eine „Inventur“ zu machen - das fürchten heute noch viele Kaufleute. Da muß 
man nämlich die Schrauben zählen und (nach Menge mal Einzelpreis) bewerten. 
Für Sie als Computerbesitzer ist das kein Problem! 

Ändern Sie Ihr Programm wie folgt ab: 


180 PRINT "LAGER.-NR”, ”ABMESSUNG”,”BESTAND”,”WERT” 
216 PRINT SL$(Z,1),SL$(Z,2),SL$(Z,3),SL$(Z,3)*SL$(Z,4) 


Sie bemerken, daß nur die vierte Spalte geändert wurde? Unglücklicherweise hat 
der Computer ausgegeben: 


LAGER.-NR. ABMESSUNG | BESTAND WERT 

206 M 10x15 1666 

? TM ERROR IN 210 

„IM ERROR“ hatten wir noch nicht. Das Handbuch hat mich darüber aufgeklärt, 
daß ich einen ganz üblen Schnitzer gemacht habe. „TM“ steht für „TYPE MIS- 
MATCH“... und das heißt sinngemäß „...man behandelt STRINGS nicht wie 
„NUMERISCHE VARIABLE“ - indem man sie miteinander multipliziert. Das ist 
ja auch ganz logisch; multiplizieren Sie doch mal „MITTWOCH“ mit „DON- 
NERSTAG“... 


Nun habe ich zunächst ein wenig geschwitzt. Ich möchte Ihnen das ersparen, 
und lieber etwas Neues einführen! 
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Machen Sie (altes Programm stehenlassen!!) ein paar Fingerübungen: 
16600 A$ = 1000” 
1616 B$ = ”WERT 1000” 
16020 PRINT A$,B$,VAL (A$), VAL (B$) 
Dann 
RUN 1066 
Das Ergebnis: 
1606 WERT 10606 1066 ö 
Zur Erklärung: VAL(...) steht für VALue — und das heißt WERT. 
Nach dem Befehl VAL(...) muß in (...) ein STRING stehen. 1600 ist KEIN STRING. 
Aber ”160®” ist einer; schließlich haben Sie ja extra ”.....” verwendet, um aus 1006 
den String ”1660” zu machen! 
Aber ”WERT 10660” ist doch ein STRING — warum kommt dann ® raus?... 
Nein, so begreift das kein Mensch! Ich versuche am besten, Ihnen einmal in 
verständliches Deutsch zu übersetzen, was ich zu VAL(...) im Handbuch gefunden 
habe. 


® Bei VAL(...) muß in (...) ein String stehen. 
© Dieser muß jedoch - als Zahlenwert betrachtet — einen SINN ergeben. 


Jetzt zu unserem Zwischenprogramm: 
1660 A$="1000” ist ein String. 1000 für sich betrachtet, macht auch Sinn — 
nämlich die Zahl 1666 
Deshalb ergibt: 
1026 PRINT...VAL(A$) den Ausdruck 1606 
1610 B$="WERT 1060” ist eindeutig auch ein String. Allerdings macht WERT 10 
06 als ZAHL KEINEN SINN! Und deshalb ergibt 
1626 PRINT... VAL(B$) schlicht: „NICHTS“ (0) 
Vielleicht werden die letzten Klarheiten beseitigt, wenn Sie dieses „Wissen“ in 
das mißlungene Inventurprogramm einbauen! 
210 PRINT SL$(Z,1),SL$(Z,2),SL$(Z,3), VAL(SL$(Z,3))* VAL(SL$(Z,4)) 
Jetzt wird’s wohl klarer! 
Nach der Datenliste, Zeile 460 hat z. B. SL$(1,3) den ZAHLENWERT 1066. Und 
VAL(SL$(1,3)) ist dann der „VALue“, der „Zahlenwert“ des Strings SL$(1,3). 
Mit VAL(...) können Sie einen als String „versteckten“ Zahlenwert zum Vorschein 
bringen. 

Dasselbe passiert mit SL$(1,4); durch VAL(SL$(1,4)) wird daraus 166. Und 
nun können wir beide multiplizieren! Zuerst aber noch 
230 END 
Rechnen Sie die Zahlen in der 4. Spalte nach! Es handelt sich tatsächlich um die 
Produkte aus Menge und Einzelpreis! 
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Nun können Sie einen Taschenrechner nehmen, und die Werte der 4. Spalte 
aufaddieren — Sie haben dann den Gesamtwert des Schraubenlagers. 
Eleganter geht es natürlich mit einem entsprechenden Computerprogramm. Mit 
unserem Wissen um VAL(...) wollen wir es wagen! 
230 RESTORE 
Da wir mit der alten Datenliste etwas Neues anfangen wollen, ist RESTORE 
notwendig. 
240S=6 
S steht für Summe. Beim Beginn des Programms ist diese noch 6. 
2560Z2=1 
Z soll jetzt die Zeilen zählen. 
260 READ SL$({R,1),SL$(R,2),SL$(R,3),SL$(R,4) 
270S = S + (VAL(SL$(Z,3))* VAL(SL$(Z,4))) 


2807 =Z+1 

296 IF Z <=N THEN 270 

3660 PRINT 

316 PRINT”DER GESAMT-LAGERWERT IST ";S;” DM” 

326 PRINT” =======================2=2===2========— 
336 END 


Geschafft! Auch dieses Programm erkläre ich Ihnen gern noch im Klartext. Da Ihre 
Datenliste in Viererblocks aufgestellt ist, müssen auch alle vier Elemente gelesen 
werden, obwohl Sie nur die letzten beiden für die Weiterverarbeitung benötigen. 

Der Computer beginnt mit den Werten 6 für S und 1 für Z. Damit rechnet er in 
Zeile 276 S = d + (1600 mal 16). 

In Zeile 280 wird Z um 1 erhöht; in Zeile 290 geht es zurück zu Zeile 276. Dort 
wird jetzt gerechnet: S = 16606 + (2606 mal 20). (Vergleichen Sie die Werte in der 
Datenliste!) das geht solange, wie Z kleiner oder gleich N ist. Erst der letzte Wert 
für S — das ist dann der Gesamtwert — wird in Zeile 310 hingeschrieben. 


Was haben Sie dazugelernt? 


® Sie haben erfahren, was man unter „indizierten Variablen“ versteht und wie 
man damit umgeht. 
® Alle indizierten Variablen mit dem gleichen Namen — wie A(1), A(2), 
A(3)...A(N) nennt man ein „Feld“, einen „Bereich“ oder (englisch) „Array“. 
© Sie kennen den Unterschied zwischen: 
— eindimensionalen Feldern. A(I). Im Beispiel ab Seite 168 war das Lager aus 
einzeiligen Fächern auf dem Boden aufgebaut. 
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— zweidimensionalen Feldern. A(N,M). Im Beispiel ab Seite 174 war das unser 
Lager, das auch in die Höhe geht. 

® Wenn Sie mit indizierten Variablen arbeiten, müssen Sie dafür sorgen, dal} der 
Computer dafür Speicherplatz bereithält. Sie beauftragen ihn dazu mit: 
DIM A(N) — wobei N von Ihnen vorgegeben wird. 
DIM A(17) - hier wollen Sie 17 Plätze reservieren. 
DIM S(10,4) — hier dimensionieren Sie ein Feld, bestehend aus 10 Reihen mit je 
4 Spalten. 
DIM... ist gewissermaßen ein Geschäft mit Ihrem Computer auf Gegenseitigkeit. 
— Sie halten sich an den selbst gesetzten Rahmen... 
— Er garantiert dafür den bestellten Speicherplatz. 

® Sie können numerische Variable A, A3, Z... usw. indizieren zu A(I), A3(N), 
Z(A)... 
aber ebenso 

® String-Variable wie A$(I), A1$(N) oder Z$(A). 

® Indizierte Variable können Sie auch „bearbeiten“. In Beispielen hatten Sie eine 
Liste von Variablen addiert oder die Zahlenwerte von Stringvariablen miteinan- 
der multipliziert. 

© Dabei haben Sie mit VAL(...) einen Befehl mit einer interessanten Eigenschaft 
kennengelernt: 

® hinter VAL(...) muß in (...) ein String folgen, der - für sich betrachtet - als Zahl 
einen Sinn ergibt. 

® Das ist bei VAL(SL$(1,4)) der Fall, wenn SL$(1,4) den Wert 1606 hat. Also als 
Zahl einen Sinn macht! 

© Das ist bei VAL(B$) NICHT der Fall, wenn B$ ”WERT 250” ist. Weil WERT 250 
keine Zahl ist! 


Und nun noch ein paar wichtige Nachträge zu DIM! 


© DIMensionierungen gehören immer an den Anfang eines Programms. 

© Das zweidimensionale Datenfeld etwa unseres Telefonbuches bestand aus 
Zeilen und Spalten. Beim DIMensionieren müssen Sie immer: 
Zuerst die Zeile dimensionieren... 
Später (danach) die Spalte dimensionieren. 
Also: Ein Feld aus 160 Zeilen und 8 Spalten DIMensioniert man: 
DIM A$(100,8) oder, allgemein: DIM A$(Z,S) 

© Die meisten Computer DIMensionieren beim Einschalten automatisch 10 
Plätze für indizierte Variable, so daß es nicht nötig gewesen wäre, bei unseren 
ersten, einfachen Übungen zu dimensionieren: DIM A(5). 
Aber — wie Sie gesehen haben — geschadet hat es auch nicht! Und wenn Sie 
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sich stur angewöhnen, bei indizierten Variablen zu DIMensionieren, machen 
Sie wenigstens nie etwas falsch! 
Sie sind — ich auch! — daran gewöhnt, etwa in einer Liste die Zeilen und 
Spalten beginnend mit 1 (eins) zu zählen; in unserem Sprachgebrauch kennen 
wir für gewöhnlich keine „Zeile 6“ oder „Spalte 0“. 
Beim DIMensionieren beginnt der Computer aber (dummerweise) bei Ö zu 
zählen! 
Wenn Sie sich reservieren lassen: 
DIM A$(15,8), dann reserviert der Computer für Sie 
16 Zeilen (!); nämlich von 6 bis 15 sowie 

9 Spalten (!); nämlich von ® bis 8! 
Merken Sie sich das lediglich der Vollständigkeit wegen. Bleiben Sie anson- 
sten ruhig bei der hier von uns betriebenen Zählweise. Nur wissen sollten Sie 
noch: 
Bei DIM A$(15,8) existieren vom Computer reservierte Feldelemente mit den 
„Namen“ A$(0,6), A$(6,1)...A$(6,8). Die bleiben „leer“, wenn Sie sie nicht 
nutzen; belegen aber Speicherplatz (!). 
Hoffentlich habe ich Sie damit nicht zu sehr verwirrt! 
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Sie lernen wieder etwas hinzu! 

Ich habe Ihnen ein Schaltbild aufgezeichnet (Abb. 28). Auch wenn Sie kein 
Elektriker sind, werden Sie erkennen, daß die Lampe nur leuchten kann, wenn 
alle drei Schalter S1, S2 und S3 geschlossen sind. 

In der Elektrotechnik gibt es eine Disziplin, die sich mit digitaler Steuerungs- 
technik befaßt. Ein Fachmann dieser Richtung würde das Schaltbild mit folgen- 
den Worten beschreiben: 

„Wenn S1ı UND S2 UND S3 geschlossen sind, dann leuchtet die Lampe.“ 

Das Schaltbild symbolisiert eine sogenannte UND-Schaltung — wobei Sie wissen 
müssen, daß man in elektrischen/elektronischen Schaltbildern die Schaltung im 
Ruhezustand, mit unbetätigten/stromlosen Schaltelementen zeigt. 

Für Sie als angehenden Computerfachmann ist es wichtig zu lernen, daß dieses 
UND unter gar keinen Umständen im Sinne von PLUS verstanden werden darf. 

Und nun zu Ihrem Computer. Der versteht UND nämlich auch. Sie überprüfen 
das am besten auf der Grundlage des folgenden Programms: 


NEW 

5CLS 

16 PRINT”SCHALTER EIN = 1 , SCHALTER AUS = 0” 

15 PRINT 

26 INPUT”IST SCHALTER S1 GESCHLOSSEN’”;A 

36 INPUT”IST SCHALTER S2 GESCHLOSSEN”;B 

46 INPUT”IST SCHALTER S3 GESCHLOSSEN”;C 

Und nun lernen Sie die neue Fähigkeit des Computers kennen: 
Da der Computer nur Englisch versteht, will er auch den Begriff UND übersetzt 
haben. Und das heißt AND. 

50IFA=1ANDB=1ANDC = 1 THEN 86 

66 PRINT”DIE LAMPE LEUCHTET NICHT” 


70 END 
80 PRINT”DIE LAMPE LEUCHTET” 51 ) 53 
960 END or“ 


FEED 
Abb. 28 Eine UND-Schaltung. Die Lampe 
Lampe leuchtet nur, wenn Schalter 1 
UND Schalter 2 UND Schalter 3 ge- N 
schlossen sind 


203 


36 Die Logik der Steuerungstechnik 


Wenn Sie dieses Programm testen, werden Sie erkennen, daß der Computer nur 
dann meldet: 
DIE LAMPE LEUCHTET 
Wenn Sie für A und B und C jeweils 1 für „Schalter geschlossen“ eingegeben 
hatten. 

Wenn Sie das Schaltbild kritisieren, weil drei Schalter in Reihe Geldver- 
schwendung wären, dann kann ich Ihnen auch ein anspruchsvolleres zumuten 
(Abb. 29). 


Abb. 29 Eine einfache Alarmanlage; 
Wenn die Schalter K1, K2, K3 alle 
geschlossen sind, bekommt das Relais 

Hupe Rel. Strom, der Ruhekontakt K4 ist 
geöffnet und die Hupe bleibt still. We- 
he aber, einer der Schalter K1 bis K3 
wird geöffnet 


Das könnte etwa das Schaltbild einer Alarmanlage sein. Wenn alle drei (Fen- 
ster-)Kontakte K1, K2 und K3 geschlossen sind, dann ist das Relais Rel angezogen, 
und dessen Kontakt K4 geöffnet — was bewirkt, daß die Hupe stumm bleibt. 

Wenn einer der Kontakte K1, K2, K3 offen ist, wird das Relais Rel stromlos; der 
RUHEkontakt K4 (der heißt so, weil er im RUHEzustand, also bei stromlosem 
Relais Rel geschlossen ist) schließt sich... und wenn Sie nicht zu Hause sind, 
werden Ihre Nachbarn wach und verscheuchen den Einbrecher. Bauen Sie das 
vorige Programm um! 


26 INPUT”IST K1 GESCHLOSSEN” ;A 

30 INPUT”’IST K2 GESCHLOSSEN”;B 

46 INPUT”IST K3 GESCHLOSSEN”;C 

66 PRINT”ALARM! ES IST JEMAND IM HAUS!” 
80 PRINT”ALLES IN ORDNUNG! GUTE NACHT!” 


Es ist natürlich wenig geistreich, durch das Haus zu laufen... 
..zu prüfen, ob alle Fenster geschlossen sind... 
..dies dem Computer mitzuteilen... 
..um von ihm zu erfahren, daß alle Fenster geschlossen sind. Für Sie als 
Programmierer kommt es darauf an, zu lernen, daß der Computer zu dieser Art 
logischer Entscheidungen fähig ist. 

Tatsächlich könnten Sie mit einigem Aufwand an „Hardware“ den Computer 
zum Hirn einer Alarmanlage machen. 
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® Sie müßten dazu über ein spezielles „Interface“ den Computer „an die Fenster 
und Türen anschließen können“... 

® Sie müßten den Computer den Schaltzustand der entsprechend präparierten 
Kontakte „abfragen“ lassen... 

® Der Computer würde dann ggf. mächtig Alarm schlagen (lassen). 

Nun zu einem anderen Schaltbild (Abb. 30). Hier sind die drei Schalter S1, S2 

und S3 parallel geschaltet. Die Lampe leuchtet auf, wenn S1 ODER S2 ODER S3 

geschlossen sind. Auch das kann der Computer unterscheiden. Nachdem Sie 

ODER zu OR übersetzt haben, können Sie folgendes Programm schreiben: 


NEW 


5 CLS 
10 PRINT”SCHALTER EIN = 1 ; SCHALTER AUS = 0” 
26 INPUT”ZUSTAND SCHALTER S1”;A 51 


36 INPUT”ZUSTAND SCHALTER S2”;B 


46 INPUT”’ZUSTAND SCHALTER S3”;C = 

Und nun die „Entscheidung“! 3 
560IFA=1O0RB=10ORC = 1 THEN 80 Lampe 
66 PRINT”DIE LAMPE IST DUNKEL” 

70 END _ 

80 PRINT"DIE LAMPE LEUCHTET” Abb. 30 Eine ODER-Schaltung: Die 
96 END Lampe leuchtet auf, sobald S1 


Jetzt gibt der Computer aus: ODER S2 ODER S3 geschlossen ist 


DIE LAMPE LEUCHTET 

wenn Sie für A ODER für B ODER für C eine 1 eingeben. 

Nur wenn Sie A=®, B=®, C=® eingeben, kommt die Antwort: 

DIE LAMPE IST DUNKEL 

Weil dann die Bedingung in Zeile 50 NICHT erfüllt ist. 

Sicherlich können Sie sich vorstellen, daß die erwähnten Steuerungstechniker in 
der Regel mit Anlagen zu tun haben, die mehr als drei Kontakte haben. Manchmal 
- in großen Steuerungen — können es hunderte sein. Wollten die Steuerungstech- 
niker ihre Schaltungen dann verbal beschreiben — wie in unseren Beispielen — 
dann kämen völlig unverständliche Romane heraus. 

Sie haben deshalb für AND und OR Kurzzeichen; sie sagen: (Bitte festhalten!) 
für AND Zu 
für OR >+ 
Fragen Sie nicht, was daran „logisch“ ist. Stellen Sie sich einfach vor, sie 
verwenden * für AND, damit SIE das nicht mit PLUS verwechseln. Immerhin 
versteht der Computer auch diese Kurzzeichen! 

Ersetzen Sie in Ihrem letzten Programm (zu Abb. 30) Zeile 50 durch: 

50 IF (A=1)+{B=1)+(C=1) THEN 80 
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: N 51 52 

Abb. 31 Wann leuchtet hier die 
Lampe? ri 
53 54 
or: 


Lampe 


und im ersten Beispiel (zu Abb. 25): 
56 IF (A=1)*(B=1)*(C=1) THEN 80 


Achten Sie in beiden Fällen auf die Klammern! Und versuchen Sie, wie das 
arbeitet. 

„Unsere“ Computer reagieren auf Langschrift und auf Kurzschrift. Wenn Ihr 
Gerät das auch tut, können Sie zufrieden sein. Wenn nicht - wird es bestimmt auf 
die eine oder andere Art der Eingabe reagieren. 

Damit Sie etwas zu knobeln haben, noch ein Schaltbild (Abb. 31)! 

Preisfrage: Wann leuchtet L? Schauen Sie dazu auf die folgende „Wahrheitsta- 
belle“ - in der 1 wieder für EIN, wieder für AUS steht (Abb. 32). 

Der Tabelle können Sie entnehmen, daß es für die vier Schalter 4x4 = 16 
Zustandskombinationen gibt — aber nur in sieben Fällen leuchtet die Lampe auf. 

Wenn Sie die Bedingung stellen, daß immer zwei Schalter eingeschaltet sein 
müssen, verbleiben nur zwei Möglichkeiten (Zeile 4 und 13 der Abb. 32). 

In Worten: wenn (S1 UND S2) ODER (S3 UND S4) 

eingeschaltet sind, leuchtet die Lampe. Für den Computer übersetzt, ergibt das: 
160 IF A=1 AND B=1 OR C=1 AND D=1 THEN 200 

180 PRINT”’DIE LAMPE IST DUNKEL” 

190 END 

2060 PRINT”DIE LAMPE LEUCHTET” 


Und nun die Schalterabfrage: 


5CLS 

16 PRINT”’EIN = 1 ; AUS = 0” 
15 PRINT 

26 INPUT”ZUSTAND S1”;A 
30 INPUT”’ZUSTAND S2”;B 
40 INPUT”ZUSTAND S3”;C 
56 INPUT”ZUSTAND S4”;D 


Prüfen Sie nach — mit einigen 
Durchläufen — ob Zeile 100 das 
richtige Ergebnis liefert! 


= 


Abb. 32 Die Wahrheitstabelle zum letzten 
Bild. Geschlossen bedeutet 1, offen bedeu- 
tet d 
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Für ein weiteres Beispiel wollen wir zulassen, daß jeder Schalter beliebig 
betätigt werden darf. Dann gibt es nach der Tabelle sieben Kombinationen, bei 
denen die Lampe leuchtet. Machen Sie dafür ein Programm: 

166 IF C=1 AND D=1 AND B=1 THEN 200 

116 IF B=1 AND C=1 AND D=1 THEN 206 

1260 IF A=1 AND C=1 AND D=1 THEN 266 

1360 IF A=1 AND B=1 THEN 206 

146 IF A=1 AND B=1 AND D=1 THEN 206 

156 IF A=1 AND B=1 AND C=1 THEN 260 

160 IF A=1 AND B=1 AND C=1 AND D=1 THEN 306 
210 END 

366 PRINT”ALLE VIER SCHALTER SIND GESCHLOSSEN” 
310 END 


Wenn Sie dieses Programm genügend oft durchgespielt haben, werden Sie an 
seiner Qualität zweifeln. 

Sie sind auf dem besten Wege zum Programmierer! Es tut mir leid, daß ich Sie 
aus pädagogischen Gründen auf eine falsche Fährte geleitet habe. Aber wenn Sie 
sich schon für das Programm auf die sieben Möglichkeiten, bei denen die Lampe 
leuchten kann, beschränken, müssen Sie die möglichen Zustände aller vier 
Schalter im Programm berücksichtigen. 

Wollen Sie die sechs Zeilen noch mal ändern? 

100 IF C=1 AND D=1 AND A=6 AND B=0 THEN 200 
110 IF B=1 AND C=1 AND D=1 AND A=06 THEN 206 
126 IF A=1 AND C=1 AND D=1 AND B=6 THEN 206 
130 IF A=1 AND B=1 AND C=d AND D=6 THEN 206 
1460 IF A=1 AND B=1 AND C=6 AND D=1 THEN 206 
150 IF A=1 AND B=1 AND C=1 AND D=0 THEN 266 


Und damit Sie alles in Ruhe überprüfen können, noch: 
1968 GO TO 310 

210 GO TO 316 

3160 FOR X = 1 TO 1000 : NEXT 

3206 GO TO5 


Was haben Sie dazugelernt? 


® Wie Sie mit Hilfe der Begriffe AND, OR logische Operationen durchführen 
können. 


In Programmen gibt es dafür zwei verschiedene ”Schreibweisen”; 
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© Langschrift 

IF A=1 AND B=1 THEN... 

IF A=1 OR B=1 THEN... 
® Kurzschrift 

IF (A=1)*(B=1) THEN... 

IF (A=1)+(B=1) THEN... 
Also: Für AND gilt das Zeichen * 

Für OR gilt das Zeichen + 


Wichtig 


© AND nicht mit UND im Sinne von PLUS verwechseln! 
® Bei „Kurzschrift“ die Klammern nicht vergessen! 
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Ich habe eine Tochter. Sie heißt Susanne. Ihre Freunde - und alle, die sie mögen — 
nennen sie Susi. Als Vorbereitung auf ihr Studium lernte Susi s. Zt. Bankkauf- 
mann. Wenn sie Schalterdienst hatte, konnte es - beispielsweise — geschehen, daß 
eine ältere Dame an ihren Schalter kam und fragte: „Fräulein Susi, ich habe einen 
Enkel bekommen. Von meiner Rente kann ich DM 50.- im Monat abzweigen. 
Wenn ich die bei Ihnen anlege: Wieviel Geld bekommt mein Enkel, wenn er 18 
Jahre alt ist?“ Susi wurde dann ein wenig nervös, blätterte in Tabellen, bemühte 
auch ihren Tischrechner. So, wie ich Susi kenne, erhielt die alte Dame aber nach 
einer Weile eine zufriedenstellende Auskunft. Wieviel leichter hätte sie es gehabt, 
wenn sie — wie Sie — einen Computer besessen hätte! 

Für solche und ähnliche Fragen sei ein Computerprogramm für Susi geschrie- 
ben! Die Grundlagen dazu habe ich in Susis Fachkundebuch gefunden. Darin 
werden vier Eingangsgrößen bearbeitet; mit drei bekannten läßt sich jeweils die 
vierte Größe nach den Formeln, die ich Ihnen gleich aufschreibe, errechnen. Die 
vier Größen sind: 


1. Das Anfangskapital KA: Das ist der Geldbetrag, den Sie für eine bestimmte Zeit 
anlegen wollen. Man könnte auch schlicht sagen: KA ist der Betrag, den Sie 
sparen wollen. 


2. Die Laufzeit N: N ist die Anzahl der Jahre, für die Sie den Betrag KA der Bank 
anvertrauen wollen. Die arbeitet dann mit Ihrem Geld - als Beteiligung erhalten 
Sie dafür von der Bank Zinsen. 


3. Zinssatz Z: Dieser sagt aus, wieviel Prozent Zinsen Ihnen die Bank im Jahr 
zusichert. 


4. Das Endkapital KE: Das ist der Betrag, den Sie nach der Laufzeit N von der 
Bank zurückerhalten. In KE steckt natürlich Ihr Anfangskapital KA, vermehrt um 
die Zinsen und Zinseszinsen über die Laufzeit N.. 
Wie erwähnt: Sind drei dieser Größen bekannt, läßt sich die vierte errechnen. 
Und nun zu den Formeln, die ich bereits computergerecht aufbereitet habe und 
die Sie — bitte - kommentarlos entgegennehmen wollen! 


Endkapital KE 
KE=KA*(1+Z/1W)TN 
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Laufzeit N 

N = (LOG(KE) - LOG (KA))/ LOG(1 + Z/1006) 

Zinssatz Z 

Z = 106 * ((KE/KA) 1 (V/N)-1) 

Anfangskapital KA 

KA = KE/((1+Z/160)? N) 

Damit ist eigentlich das Wesentliche geschehen. Ich bin sicher, daß dieses 
Programm nicht nur für Susi von Nutzen ist! 


37.1 Sie legen Ihr Geld an 


Das Programm wollen wir ähnlich entwerfen, wie wir das für andere schon getan 

haben: 

® Titel - damit Sie wissen, um was es geht. 

© Auswahltabelle — damit Sie nach Belieben jede der vier Größen ermitteln 
können. Fangen wir damit an! 


NEW 

5 CLS 

10 PRINT” PROGRAMM ZUR KAPITALBERECHNUNG” 

20 PRINT” =========================2=====2======== 

30 PRINT 

46 PRINT 

560 PRINT”ZUR BERECHNUNG DES ENDKAPITALS KE ..........22c 22000. 
RE EN Ka ee nee en DRUECKEN SIE DIE TASTE 1” 

66 PRINT”ZUR ERMITTLUNGDERLAUFZEIT N .......2222ceeeeerenenen 
a NE REN EN eeefe alorle DRUECKEN SIE DIE TASTE 2” 

76 PRINT”ZUR ERMITTLUNG DES ZINSSATZES Z ......222cseeeeenenen: 

En er Dee ee DRUECKEN SIE DIE TASTE 3” 


80 PRINT”ZUR ERMITTLUNG DES ENDKAPITALS KE...........cccc 200 
ea oe DRUECKEN SIE DIE TASTE 4” 
Das wäre erledigt. Ich bin sicher, daß Sie sich stark genug fühlen, die Sperre 

gegen Falscheingabe selbst hinzuzufügen! 

130 INPUT X 

1408 ON X GO TO 156,250,350,456 

Ab Zeile 150 soll das Endkapital KE errechnet werden. Dazu müssen Sie den 

Computer zunächst die drei Größen: 

Anfangskapital KA Zinssatz Z Laufzeit N abfragen lassen. 
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150 INPUT”WELCHEN BETRAG WOLLEN SIE ANLEGEN”;KA 
1660 INPUT”WELCHEN ZINSSATZ BIETET IHNEN DIE BANK IN %”;Z 
176 INPUT”WIEVIEL JAHRE WOLLEN SIE DAS GELD ANLEGEN”;N 


Damit kennt der Computer die Größen, die zur Berechnung von KE erforderlich 
sind. Wir lassen ihn das erledigen nach der Formel für KE, die ich Ihnen vorhin 
aufgeschrieben hatte. 


180 KE = KA*(1 + Z/100)T N 


Damit der Computer es nicht zu genaunimmt, geben wir noch die Formel für 
„Rundung auf zwei Stellen“ ein: 


190 KE = INT (KE*106+ .5)/166 

Und nun suchen wir noch eine gute Formulierung für die Ausgabe! 

266 PRINT”WENN SIE ”;KA;” DM ZU ”;2;” % ZINSEN FUER ”;N;” JAHRE 

ANLEGEN, BETRAEGT IHR ENDKAPITAL KE ”;KE;” DM” 

210 PRINT” =====2=============== =" 

220 END 

Der Rest des Programms besteht eigentlich aus einem „Thema mit Variationen“. 

Sie sollten schon soviel Ehrgeiz haben, daß Sie sich daran selbst versuchen. 
Für alle Fälle schreibe ich Ihnen den Rest — zum Nachschlagen - noch auf! 


250 INPUT”WELCHEN BETRAG HABEN SIE ANGELEGT”;KA 

260 INPUT”ZU WELCHEM JAEHRLICHEN ZINSSATZ”;Z 

270 INPUT”WAS HAT IHNEN DIE BANK ZURUECKGEZAHLT”;KE 

280 N =(LOG(KE)-LOGI(KA))J/LOG(1+Z/100) 

290 N = INT(N*100+.5)/166 

300 PRINT”SIE MUESSEN IHR KAPITAL VON DM ”;KA;” FÜR ”;N;” JAHRE 
ANLEGEN” 

310 PRINT” =====" 

320 END 

350 INPUT”WELCHEN BETRAG HATTEN SIE ANGELEGT”;KA 

360 INPUT”WAS HAT IHNEN DIE BANK ZURUECKGEZAHLT”;KE 

370 INPUT”NACH WIEVIEL JAHREN”;N 

380 Z = 100*((KE/KA)t (1/N)-1) 

390 Z = INT(Z*106+.5)/100 

400 PRINT”BEI DEN EINGEGEBENEN DATEN WAR DER ZINSSATZ ”;2;” %” 

410PRINT’=============== === === --- ---- =" 

420 END 

450 INPUT”WELCHEN BETRAG HAT IHNEN DIE BANK ZURUECK- 
GEZAHLT”;KE 

460 INPUT”WELCHER ZINSSATZ WAR VEREINBART”;Z 

476 INPUT”WIEVIEL JAHRE WAR DIE LAUFZEIT”;N 
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480 KA = KE/((1+Z/100) A N) 

496 KA = INT(KA*100+.5)/100 

506 PRINT”FUER ”;KE;” DM ENDKAPITAL HAETTE IHR ANFANGSKAPITAL 
KA,” 
DM BETRAGEN MUESSEN” 

518 PRINT” === = = = = = = = = = = = = = = = = = = z > z = zz zz zz zz zz > 


”„ 


520 END 


37.2 Sie sehen Ihr Kapital wachsen 


Mit dem folgenden Programm sollen Sie einmal zusehen, wie Ihr Sparkapital von 
Jahr zu Jahr durch den Zuwachs an Zinsen und Zinseszinsen anwächst. Das ist 
eine faszinierende Geschichte und kann Sie vielleicht zum Sparen (vielleicht für 
einen Drucker?) motivieren. 

Als Ergebnis des Programms erwarten wir also, daß wir nicht nach einer 
Laufzeit N das Endkapital zu sehen bekommen; vielmehr wollen wir den 
Zuwachs von Jahr zu Jahr verfolgen. 


NEW 

5CLS 

10:PRINT? 2.220 u.a... ZINSTAFEEL 452 320.482. 18: & 
20 PRINT” ======================================" 
30 PRINT 

46 INPUT”’GEBEN SIE IHR ANFANGSKAPITAL EIN”;KA 

45 INPUT”WIE LANGE WOLLEN SIE DAS GELD FESTLEGEN”;N 

56 INPUT”WIEVIEL % ZINSEN GIBT IHNEN DIE BANK”;Z 

69 PRINT”LAUFZEIT”,,"ENDKAPITAL” 

65PRINT” === = === === === == == === == == === === 


80 KE = KA*(1+Z/100) 1 Y 

90 KE = INT(KE*106+.5)/100 

160 PRINT Y,,KE 

118 Y= Y+1 

120 IF Y <= N THEN 80 

136 PRINT”NACH ”;N;” JAHREN BETRAEGT IHR ENDKAPITAL DM ”;KE 
140 S= KE-KA 

156 PRINT”IHR ZUGEWINN BETRAEGT DANN ”;S;” DM” 

155 A = (S/KA) * 100 

160 A=INT(A*106+.5)/100 
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176 PRINT”DAS SIND ”;A;” % DES EINGESETZTEN KAPITALS VON DM ";KA 


190 END 


Damit Sie das richtig genießen können, zeige ich Ihnen auf der nächsten Seite 
einen „Ausdruck“ für 25 Jahre — wohl wissend, daß Ihr Computer das nicht auf 
einmal auf den Schirm bringt. 


GEBEN SIE IHR ANFANGSKAPITAL EIN ? 1250 
WIE LANGE WOLLEN SIE DAS GELD ANLEGEN ? 25 
WIEVIEL % ZINSEN GIBT IHNEN DIE BANK ? 8 


LAUFZEIT ENDKAPITAL 
1 1350 

2 1458 

3 1574.64 
4 1700.61 
5 1836.66 
6 1983.59 
7 2142.28 
8 2313.66 
9 2498.76 
16 2698.66 
11 2914.55 
12 3147.71 
13 3399.53 
14 3671.49 
15 3965.21 
16 4282.43 
17 4625.02 
18 4995.02 
19 5394.63 
20 5826.2 
21 6292.29 
22 6795.68 
23 7339.33 
24 7926.48 
25 8560.59 
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NACH 25 JAHREN BETRAEGT IHR ENDKAPITAL 8560.59 DM 
IHR ZUGEWINN BETRAEGT DANN 7310.59 DM 
DAS SIND 584.85 % DES EINGESETZTEN KAPITALS VON DM 1250 


Noch ein paar Erklärungen gefällig? 

Dieses Programm arbeitet wieder mit einem „Schleifenzähler“, der in diesem 
Programm die Jahre zählt. Nachdem Sie in Zeile 45 schon die Gesamtlaufzeit mit 
N = 25 eingegeben hatten, müssen Sie sich nun zum Zählen der Jahre 1, 2, 3, 4, 
5...25 eine andere Variable aussuchen. Ich habe hier Y gewählt. 

In Zeile 70 wird Y auf 1 gesetzt. In Zeile 86 wird das Kapital berechnet. Zwar 
mit der gleichen Formel wie beim vorigen Programm. Aber HIER wollen Sie KE 
nach einem Jahr wissen. Und deshalb heißt es jetzt in der Formel KE =... X Yund 
nicht ..tN! 

In Zeile 126 ist eine weitere Form des „Austeigens“ aus einer Schleife zu sehen. 
Diese Form hatten wir schon in den letzten Programmen verwendet. Aber hier 
folgt die Erklärung: Übersetzen Sie das wie folgt: Solange, als Y kleiner ist als N...“ 

In Zeile 140 ist der Zugewinn berechnet. Einfach Endkapital nach 25 Jahren 
minus eingesetztem Kapital. In Zeile 155 ist ausgerechnet, wieviel % des einge- 
setzten Kapitals von DM 1250 der Zugewinn von DM 7310.59 beträgt. 


37.3 Der Computer verwaltet Ihre Schulden 


Geld kann man nicht nur anlegen — man kann es sich auch leihen. Dann 
bekommen Sie keine Zinsen, sondern müssen welche bezahlen. Im folgenden 
Programm wollen wir uns einmal mit dieser Frage beschäftigen. 

Es gibt noch einen anderen Grund, warum ich Ihnen dieses Programm vorstelle. 
Bei seiner „Entwicklung“ bin ich zunächst in Schwierigkeiten geraten; das 
Ergebnis war unbefriedigend. Und weil es Ihnen sicher in Zukunft bei der 
Beschäftigung mit Ihrem Computer ebenso ergehen wird, will ich Ihnen die 
Entwicklungsgeschichte nicht vorenthalten. 

Zunächst zu den Eingangsgrößen. Sie leihen sich bei Ihrer Bank Geld; wir 
nennen das die 
Kreditsumme S. 

Sie vereinbaren mit Ihrer Bank die Rückzahlung in festen Jahresraten über eine 
Laufzeit von N Jahren. Die Bank verlangt von Ihnen Z % Zinsen. 

Die Jahresrate A, die Sie jährlich bis zur vollständigen Tilgung zurückzahlen 
müssen, itA=S/N. 

Die Zinsen, die Sie bezahlen müssen, betragen S * Z /100. 

Nach dem ersten Jahr hat sich Ihre Schuld um eine Jahresrate A verringert; Sie 
müssen dann nur noch für S- A die vereinbarten Zinsen bezahlen. Und so setzt 
sich das im zweiten und dritten Jahr fort — solange, bis Ihre Schuld getilgt ist. 
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Mit diesen Daten habe ich das folgende Programm aufgebaut. Die erwähnten 
Schwierigkeiten hatte ich mit dem Ausstieg, den ich in den Zeilen 130 und 140 
untergebracht hatte. Lassen Sie das Programm zunächst einmal so, wie es ist und 
sehen Sie, was dabei herausgekommen ist. 


5 CLS 

16 INPUT "WIE GROSS IST DER KREDIT IN DM”; S 

26 INPUT "WIE LANG IST DIE LAUFZEIT IN JAHREN”; N 
36 INPUT "WIE HOCH IST DER ZINSSATZ IN %”; Z 


40 A = S/N 
560B=S* Z/106 
55 CLS 


60 PRINT ”KREDIT”,”J-ZAHLUNG”,”ZINS”,”BELASTUNG” 
70 PRINT ”DM)”, ”(DM)”, ”(DM)”, ”(DM/JAHR)” 


80 PRINT’ == === == === ====== === === === === ===== ===> 
96 PRINT 

160 PRINT S,A,B,B+ A 

110S=S-A 


120 B=S * Z/100 

130 IF S<= A THEN 176 

146 IF S <= 0 THEN 160 

150 GO TO 106 

160 END 

176 PRINT “ES VERBLEIBT EINE RESTSCHULD VON”; S; ”DM” 

180 PRINT "RESTSCHULD MIT”; Z; ”%”; ”VERZINST, ERGIBT:”; 
S * Z/100+S;”DM” 

196 END 


In Zeile 40 steht die Formel für die Jahreszahlung A; in Zeile 50 ist der Zinsbetrag 
in DM ausgerechnet, der bei dem Zinssatz Z im Jahr für die Kreditsumme S zu 
zahlen ist. 

Nach der Überschrift in Zeilen 66, 70 wollte ich in Zeile 160 ausrechnen und 
hinschreiben lassen: 


© Die jeweils noch verbleibende Kreditsumme S 

© Die vereinbarte jährliche Rückzahlung A 

® Den Zinsbetrag in DM, der für die jeweils verbleibende Kreditsumme zu 
bezahlen ist; hier mit der Variablen B benannt. 

® Und schließlich meine jährliche Belastung — die sich ja aus der vereinbarten 
Rückzahlung A und den jeweils fälligen Zinsen zusammensetzt. 
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In Zeile 1106 rechnet der Computer die gewünschten Größen schon für das zweite 
Jahr aus, in dem sich ja die Kreditsumme um eine Jahreszahlung verringert hat. 

In Zeile 126 soll natürlich nur für diesen Betrag (nämlich S=S-A) der 
Zinsbetrag ausgerechnet werden. Und so geht das Programm weiter. 

Kommen wir zu den Zeilen 130 und 146, die den Ausstieg aus dem Programm 
bewerkstelligen sollen. Nach mehreren Versuchen, bei denen ich den Computer 
nur mit Gewalt stoppen konnte (nämlich mit ESC bzw. RUN/STOP), bin ich zu 
dieser Lösung gekommen. Sehen Sie sich an, was der Computer daraus gemacht 
hat! 


WIE GROSS IST DER KREDIT IN DM? — 20 000 
WIE LANG IST DIE LAUFZEIT IN JAHREN? - 5 
WIE HOCH IST DER ZINSSATZ IN %? — 10 


KREDIT J-ZAHLUNG ZINS BELASTUNG 
(DM) (DM) (DM) (DM/JAHR) 
20 000 4000 2000 6000 
16 000 4000 1600 5606 
12 000 4000 1200 5200 
8 000 4000 800 4800 


ES VERBLEIBT EINE RESTSCHULD VON 4000 DM 
RESTSCHULD MIT 16 % VERZINST, ERGIBT: 4400 DM 
READY 

u 


Zunächst habe ich geraten, warum der Computer die 5. Zeile (N = 5 Jahre) nicht 
mehr in die Tabelle geschrieben hat. Aber es war wenigstens richtig, was er 
ausgerechnet hat. Dann habe ich eine „krumme“ Laufzeit eingegeben (N = 5.5). 
Das Ergebnis finden Sie unten. 


WIE GROSS IST DER KREDIT IN DM? - 25 606 
WIE LANG IST DIE LAUFZEIT IN JAHREN? - 5.5 
WIE HOCH IST DER ZINSSATZ IN % — 12.4 


KREDIT J-ZAHLUNG ZINS BELASTUNG 
(DM) (DM) (DM) (DM/JAHR) 

25600 4654.55 3174.4 7828.95 

20945.5 4654.55 2597.24 7251.78 

16290.9 4654.55 2.20.07 6674.62 

11636.4 4654.55 1442.91 6097.46 

6981.82 4654.55 865.746 5520.29 
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ES VERBLEIBT EINE RESTSCHULD VON 2327.27 DM 
RESTSCHULD MIT 12,4 % VERZINST, ERGIBT: 2615.86 DM 
READY 

u 


Hier hat nun der Computer für die „vollen“ Jahre (5!) die Ergebnisse in die Tabelle 
geschrieben und mit dem Rest der Laufzeit (.5 Jahre!) die beiden letzten Zeilen 
ausgefüllt. 


Erkennen Sie auf Anhieb, welcher Schnitzer jetzt in dem Programm steckt? 
Nein? Dann gehen Sie einmal zu einer Bank, die Ihnen für ein halbes Jahr den 
vollen Jahreszins abnimmt!! 


Nach heftigem Nachdenken habe ich das Problem gelöst mit zwei Programmva- 
rianten, die wir schon miteinander geübt haben: 


® mit der UND-Schaltung 


® mit dem bei INT... geübten Trennen von Dezimalzahlen. 
Ich bitte, ggf. dort nachzulesen! 


Sehen Sie zunächst das abgeänderte Programm; die Erklärungen dazu folgen 
unten! 
136 N = N-1 
146 R=N* 10 
150 Y = INT (R/10) 
166 E=R-(Y * 10) 
176 IF (Y=6)* (E=6) THEN 190 
186 IF (Y=6)* (E<>0) THEN 206 
196 END 
266 PRINT "R-SCHULD”,”"R-LAUFZEIT”,”ZINSEN” "R-ZAHLUNG” 
205 PRINT ”(DM)”, ”(MONATE)”, ”(DM)”, ”(DM)” 
216 PRINT” =======================2==2==========> = 


=——=——_._) 


215 K = ((S * Z/ 106)12)*E* 1.2 
220 PRINT S,E*1.2,K,S+K 
230 END 


Zeile 130: Ich darf daran erinnern, daß wir in Zeile 130 schon beim zweiten 
Durchlauf sind. Also im Jahr N - 1! 
In den Zeilen 146 — 160 erfolgt das „Abtrennen“. 
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Beispiel: N=5 Beispiel: N = 5.5 
.„.dannistN-1=4 N-1=45 
..dann ist R = 40 R=45 
..dann ist Y = INT(R/10) 

Y=4 Y=4 
..dann ist E = R -(Y*10) 

E=6 E=5 
Es ist also hier: Y = „Einer“ 

E = „Zehntel“ 


In den Zeilen 170 und 180 ist nun der Ausstieg aus dem Programm wie folgt 
programmiert: 


170 IF (Y=6)*(E=0) THEN 196 

In Worten: Wenn Y = Ö UND (wenn) E = 6, dann in Zeile 196 das Programm 
beenden! 
Diese Bedingungen sind nur erfüllt, wenn N eine ganze Zahl ist; also 
5 oder 8 oder 17. 


186 IF (Y=d)*(E<>0d) THEN 200 

In Worten: Wenn Y = 6 UND (wenn) E ungleich 6, dann in Zeile 206 weiterma- 
chen. 
Diese Bedingung ist nur erfüllt, wenn N eine Dezimalzahl ist; also 5,5 
oder 3,6 oder 20,9. 

In Zeile 215 wird dann K ausgerechnet; das sind hier die Zinsen in DM für die 

verbleibende Restlaufzeit von (z. B.) .5 Jahren. 

E*1.2 bedarf wohl noch der Erklärung? Nach dem oben Gesagten ist E die 
Anzahl der Zehntel-Jahre. Ein Jahr hat aber 12 Monate! Deswegen sind beiE =5 
(oder % Jahr!) für E*1.2 = 6 Monate die Zinsen fällig! 

Einen Probelauf für dieses Programm sehen Sie unten. Ich war eigentlich ganz 
zufrieden damit. Übrigens: ich würde mich nicht wundern, wenn Sie auf Anhieb 
das Problem eleganter gelöst hätten. Sie wissen doch: 10 Programmierer ergeben 
11 Programme. Mindestens! 


WIE GROSS IST DER KREDIT IN DM? — 20600 
WIE LANG IST DIE LAUFZEIT IN JAHREN? - 5.5 
WIE HOCH IST DER ZINSSATZ IN %? — 16 
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KREDIT J-ZAHLUNG ZINS BELASTUNG 
(DM) (DM) (DM) (DM/JAHR) 
20000 3636.36 2000 5636.36 
16363.6 3636.36 1636.36 5272.73 
12727.3 3636.36 1272.73 4909.09 
9090.91 3636.36 909.091 4545.45 
5454.55 3636.36 545.455 4181.82 
R-SCHULD R-LAUFZEIT ZINSEN R-ZAHLUNG 
(DM) (MONATE) (DM) (DM) 
1818.18 6 90.9092 1909.09 
READY 
je 


37.4 Was kostet Ihr Auto? 


Mit dieser Frage ist nicht der Kaufpreis Ihres Autos gemeint. Gemeint sind auch 
nicht die Kosten eines Automobils, wie sie etwa ein Gewerbebetrieb ausrechnet, 
mit Abschreibung, Verzinsung usw. Dieses Programm soll Ihnen helfen, für Ihr 
privat genutztes Auto mehr zu bedenken als die Kosten für Kraftstoff und Öl. Der 
Kaufpreis spielt dabei keine Rolle — schließlich könnten Sie Ihr Auto geerbt 
haben. Und doch würde sein Betrieb etwas kosten. 

Das Programm ist an sich einfach; es verwirrt zunächst durch die vielen 
verschiedenen Eingangsgrößen, die in die Berechnung der Betriebskosten einflie- 
Ben. Das Ergebnis des Programms wird sein, daß Sie für Ihr Auto die Betriebsko- 
sten in DM/Jahr, DM/Monat und DM/km ausrechnen lassen. Im ersten Teil 
ermittelt der Computer die Treibstoffkosten pro Jahr; er fragt dazu nach: 

Ihrer Fahrstrecke pro Jahr (]), 

dem Verbrauch Ihres Autos in //100 km (V) 

und dem Preis für einen Liter Kraftstoff (P). 

Aus diesen Größen wird in Zeile 46 TK errechnet. Dann wird die Kfz-Steuer 
ermittelt. Diese beträgt z. Zt. DM 14.40 pro angefangene 100 ccm Hubraum. 

Konsequent fragt das Programm in Zeile 50 nach dem Hubraum H Ihres Autos. 
Nehmen wir zunächst an, dieser sei 1500 ccm. 

66 H1 = H/100 ergibt dann 1506/1060 = 15 

70 H2 = INT (HI) ist dann ebenfalls 15 

Der Vergleich in Zeile 80 ergibt dann NEIN - d.h. H1 — H2 IST © und NICHT 
UNGLEICH ®. Also geht es in Zeile 96 weiter: 

96 S = H2 *14.4, damit ist die Kfz-Steuer errechnet. 
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Haben Sie aber ein Auto mit - z. B. - 1550 ccm Hubraum, dann ist 


66 H1 = H/166 15.5 
70 H2 = INT(H1) 15 somit 
860 H1 - H2 IST UNGLEICH ®! 


Also wird in Zeile 116 die Steuer S zu: 


110S 


(H2*14.4)+14.4 in Worten: 
15 * 14.4 + 14.4 für die „angefangenen“ 100 ccm! 


Beachten Sie bitte bei diesem Programmpunkt, daß das Programm allgemein 
gültig sein muß; also auch ohne Änderung für ein Fahrzeug mit 1540 oder 1590 
ccm den richtigen Wert für S liefern sollte. 

Das Programm fragt dann in 206, ob Sie Wartung und Pflege für Ihr Fahrzeug 
selbst besorgen. Antworten Sie mit „JA“, ist unterstellt: Sie kaufen nur Materia- 
lien wie Öl, Zündkerzen und ähnliche Verschleißteile und besorgen die notwen- 
digen Arbeiten selbst. 


Deshalb gilt dann: Mindestwartung = DM 75.-/Jahr Material 
Pflegedienst = DM ® (Sie machen es ja selbst!) 
Antworten Sie mit „NEIN“, dann soll gelten: 
Mindestwartung = DM 156/Jahr 
Pflegedienst = DM 356/Jahr 


In Zeile 330 wird noch eine Pauschale für etwaige (Unfall)-Reparaturen mit RK = 
DM 666/Jahr berücksichtigt sowie in Zeile 370 nach den Kosten für die Versiche- 
rung VS — ebenfalls in DM/Jahr — gefragt. Und nach einigen Zwischensummen 
erfolgt dann aus allen Eingaben in den Zeilen 410-430 die Berechnung der 
eingangs verlangten Werte. Was kostet nun Ihr Auto wirklich? 


5 CLS 
10 INPUT ”WIEVIEL KM FAHREN SIE IM JAHR”; ] 
20 INPUT "WIEVIEL LITER VERBRAUCHT IHR AUTO AUF 100 KM”; V 
30 INPUT ”WAS KOSTET 1 LITER KRAFTSTOFF IN DM”; P 
46 TK = (J/106) * V*P 
50 INPUT ”WELCHEN HUBRAUM IN CCM HAT IHR AUTO”; H 
66 H1 = H/106 
70 H2=INT(Hi) 
860 IFH1-H2<>0THEN 116 
9 S=H2* 144 
95 GOSUB 266 
100 GO TO 366 
1168 S=(H2* 14.4) + 144 
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120 
130 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
306 
310 
320 
325 
330 
340 
350 
360 
376 


380 
396 
400 
410 
420 
430 
440 


37.4 Was kostet Ihr Auto? 


GOSUB 206 

GO TO 360 

PRINT "MACHEN SIE WARTUNG UND PFLEGE SELBST?” 
PRINT "WENN JA: DRUECKEN SIE 1!” 

PRINT "WENN NEIN: DRUECKEN SIE 0!” 
INPUTQ 

IFQ = 1 THEN 306 

IFQ = 0 THEN 320 

CLS 

FOR X = 1 TO 1660 : NEXT 

PRINT ”FALSCHEINGABE: 0 ODER 1 DRUECKEN!” 
GO TO 206 

MW = 75:PD=6 

GO TO 336 

MW = 150: PD = 350 

GO TO 330 

RK = 606 

Z=RK+MW +PD 

RETURN 

Z1i=TK+S+Z 

INPUT "WELCHEN BETRAG ZAHLEN SIE PRO JAHR FUER 
HAFTPFLICHT”; VS 

Z2=Z1+VS 

CLS 

PRINT "IHRE BETRIEBSKOSTEN BETRAGEN: ” 
PRINT Z 2; "DM PRO JAHR” 

PRINT Z 2/12; "DM PRO MONAT” 

PRINT Z 2/]; "DM PRO KILOMETER” 

END 
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Wie lesen Sie ein Adreßbuch, wenn Sie dort den Namen „Weber“ suchen? 
Vermutlich blättern Sie zunächst das Buch „grob“ durch, bis Sie die Seiten mit 
dem Buchstaben ‚„W...‘“ gefunden haben. Dann werden Sie etwas „feinfühliger“; 
Sie finden WA... - und wissen, daß Sie noch weiterblättern müssen. Schließlich 
sind Sie bei WE..., suchen weiter bis WEB... usw. usw. 

Wenn Sie dem Computer eine Liste mit — sagen wir, Familiennamen - anbieten, 

die nicht geordnet ist, dann kann der Computer diese für Sie in emsiger interner 
Arbeit umstellen und Ihnen auf Wunsch in alphabetischer Reihenfolge geordnet 
wieder ausgeben. 
Aber was heißt schon „auf Wunsch“? „Auf entsprechenden Befehl“ — das wäre 
wohl richtig! Der Computer geht dabei ähnlich vor, wie Sie oben bei der Suche 
nach dem Namen „Weber“. Von der „Ordnungsarbeit“ des Computers merken Sie 
nichts, Sie sehen später nur die geordnete Liste. 

Mit dieser Problematik wollen wir uns jetzt beschäftigen. Das Thema ist recht 
knifflig — weshalb es auch so ziemlich am Ende des Buches erscheint. 

Aber wir werden es schon schaffen! Sehen Sie sich zunächst einmal das 
folgende Programm im ganzen an: 


NEW 
5 CLS 

10 INPUT”ANZAHL DER ZU ORDNENDEN NAMEN”;A 

26 FORX=1TOA 

30 INPUT N$(X) 

40 NEXT X 


Mit den Zeilen 16...46 geben Sie dem Computer die noch ungeordnete Liste der 
Namen ein. Dieser „Eingabeteil“ ist für Sie nicht neu; wir haben ihn schon in 
anderen Programmen geübt. Hängen wir gleich den „Ausgabeteil“ hinten an! 


150 FORX = 1 TO A 
160 PRINT N$(X) 
176 NEXT X 


Mit den Programmzeilen 10...156 könnten Sie die Liste eingeben; der Computer 
würde sie in der gleichen Form - also ungeordnet — wieder ausgeben. 

Jetzt folgt das Programm, das den Computer zum gewünschten Sortieren 
befähigt. 
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56Z=A-1 
66FORX=1TOA-1 
70FORY=1TOZ 


80 IF N$(X) < N$(X+Y) THEN 120 


96 H$ = N$(X) 
160 N$(X) = N$(X+Y) 
110 N$(X+Y) = H$ 


120 NEXT Y 

130Z=Z-1 

146 NEXT X 

So, das wär’s. Bevor es ans Erklären geht, sollen Sie erst einmal ein Erfolgserleb- 
nis haben. Starten Sie dieses Programm! Geben Sie in Zeile 10 für A 4 ein. 
Und nun nacheinander: 

HORST 

KLAUS 

EMIL 

JUERGEN 

Augenblicklich „sortiert“ der Computer und gibt in alphabetischer Reihenfolge 
aus: 

EMIL 

HORST 

JUERGEN 

KLAUS 

Lassen Sie das Programm stehen! Wie Sie erkennen, besteht das Sortierprogramm 
aus 4 voneinander optisch abgesetzten Blocks. In den Zeilen 50...70 werden zwei 
FOR...NEXT-Schleifen und eine Zählschleife (Zeile 56) begonnen. In den Zeilen 
120...146 werden die Schleifen beendet. 

Nun zum dritten „Block“ — er besteht nur aus der Zeile 80. Wie Sie an der 
Formulierung des Befehls erkennen, erfolgt dort ein Vergleich der beiden Strings 
N$(X) mit N$(X+Y). Der Computer soll nachschauen, ob der erste String 
KLEINER ist als der zweite. 

Erinnern Sie sich an die einleitenden Kapitel? Dort hatte ich Ihnen erläutert, 
daß der Computer in seinem „Inneren“ weder mit 1, 2, 3... noch mit A, B, C... 
etwas anfangen kann. Er benötigt alle eingegebenen Zeichen in einer für ihn 
speziellen „Verschlüsselung“. Für unseren weiteren Fortschritt im „Sortierpro- 
gramm“ brauchen wir nicht in die Maschinensprache einzusteigen. Es genügt. 
wenn ich Ihnen versichere, daß zunächst alle Buchstaben, Zahlen und Zeichen in 
einen Zahlencode umgewandelt werden. Das geschieht nach weltweit anerkann- 
ten Norm, dem sogenannten „ASCI“. 
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ASCI steht für “American Standard Code für Information Interchange“ und das 
heißt: Amerikanischer Code für Informations-Austausch. In der Tabelle unten 
habe ich Ihnen einen Ausschnitt daraus aufgeschrieben. 


Auszug aus dem ASCII 


A) Buchstaben 


Dezimaler Code Zeichen Dezimaler Code Zeichen 
65 A 78 N 
66 B 79 O 
67 C 80 P 
68 D 81 Q 
69 E 82 R 
70 F 83 S 
71 G 84 T 
72 H 85 U 
73 I 86 V 
74 J 87 W 
75 K 88 x 
76 L 89 Y 
77 M 90 Z 
B) Ziffern und Zeichen 
Dezimaler Code Zeichen Dezimaler Code Zeichen 
48 ) 
49 1 
50 2 32 
51 3 33 ! 
52 4 34 = 
53 5 35 # 
54 6 36 $ 
55 7 37 % 
56 8 38 & 
57 9 39 i 
40 ( 


Achtung! Code 32 ist ein Leerzeichen! (BLANK) 


Hier ist wichtig, daß Sie daraus erkennen: Jedes Zeichen im Alphabet hat eine 
kleinere Code-Nummer als das folgende. 
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A hat den Code 65 
B hat den Code 66 


Y hat den Code 89 
Z hat den Code 90 usw. 


Jetzt werden Sie verstehen, was in der Zeile 80 geschieht! 

Der Computer „schaut nach“, ob die Code-Nummer des ersten Buchstabens des 
Strings N$(X) KLEINER ist als die Code-Nummer des ersten Buchstabens im 
String N$(X+Y). 

Beispiel: HORST < KLAUS bedeutet: Code für H < Code für K? 


Und wenn der Code nicht kleiner ist? 

Dann geht es laut Programm in unserem vierten Programmblock - in den Zeilen 
90...110 — weiter. Dort werden einfach die beiden Strings miteinander vertauscht, 
„herumgedreht‘“. 

Stand etwa in Zeile 88 KLAUS < HORST 

dann wird daraus in Zeile 116 HORST < KLAUS 

Sie brauchen sich nicht zu genieren! Ich habe das auch nicht sofort begriffen. In 
solchen Fällen ist es immer gut, sich über ein überschaubares Beispiel dem 
Problem zu nähern. Das wollen wir mit dem folgenden Zwischenprogramm 
einmal tun! 


Die „Vertauschungsformel“ heißt: 
96 H$ = N$(X) 
166 N$(X) = N$(X+Y) 
110 N$(X+Y) = H$ 
Zur Vereinfachung setzen wir H$ zu H 
N$(X) zuN 
N$(X+Y) zu M 
Für N und M belegen wir nun Zahlenwerte; und zwar für N = 10, für M = 20. 
Und nun zu unserem „Demo-Programm“: 


1000 N = 10 
1016 M = 20 
1026 PRINT”’N =",,”"M =" 


1630 PRINT N,,,M 
Jetzt wird darauf die „Vertauschungsformel“ angewendet: 


1040 H = N erkennen Sie, daß H als Hilfsvariable später 
1050 N=M infach „unter den Tisch fällt“? 
1066 M =H a i 


225 


38 Der Computer als Sortiermaschine 


Nun sind Sie neugierig, was dabei herauskommt? Also: 
1076 PRINT”NACH DEM VERTAUSCHEN IST” 


1086 PRINT”N =",,”M =" 

1690 PRINT N,,,M 

Und nun: ACHTUNG!! RUN 1066 
Haben Sie das Ergebnis erwartet? 
N = 

10 

NACH DEM VERTAUSCHEN IST 
N = 

20 


10 


Und nun halte ich Sie für genügend präpariert, daß Sie das komplette Sortierpro- 
gramm Schritt für Schritt nachvollziehen können. 


Abb. 33 So arbeitet das Sortierprogramm 
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Eingang 
(Eingabe) 


Eingang in 

6ß FORX=1T0 A-1 X-Schleife 
5 Eingang in 

70 FORY=1 102 Y-Schleife 


Vergleichen 
BB IF NEIN < NEIN)... 


Vertauschen 
Zeilen 99...11P 


128 NEXT Y 
138 7=27-1 
14B NEXT X 


Ausgang 
(Ausgabe) 


Rücksprung aus 
Y-Schleife 


Rücksprung aus 
X-Schleife 
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Hier zunächst eine graphische Darstellung des Programms, aus der Sie sehr gut 
erkennen können, wie die beiden FOR...-NEXT-Schleifen ineinandergeschachtelt 
sind. Ziehen Sie die Abbildung beim Verfolgen der Beschreibung immer wieder 
zu Rate (Abb. 33)! 


Erster Durchlauf: 


Eingangsgrößen: N $ (1) = HORST 
N $ (2) = KLAUS 
N $ (3) = EMIL 
N $ (4) = JUERGEN 
A=4 
Z=A-;Z= 


Start des Programms: 
50Z= A- Setzen des „Schleifen-Zählers“ Z auf 3 
60 FOR X = 1 TO A-1 Beginn der X-Schleife. Diese soll 
von 1 bis A-1, also von 1-3 laufen. 
70FORY=1TOZ Beginn der Y-Schleife. Diese soll 
von 1 bis Z, also von 1-3 laufen. 
80 IFN$ (X) <N $(X+Y) THEN 120 
In Zeile 80 erfolgt der VERGLEICH. Für den ersten Durchlauf der Y-Schleife = 
-80IFN$ (1)<N$ (2) THEN... 
laut Eingabe ist: 
N $ (1) = HORST 
N $ (2) = KLAUS 


Der Vergleich ergibt: 

HORST ist KLEINER als KLAUS deshalb Sprung zu 126 
120 NEXT Y 

d. h., zurück zu Zeile 76, jedoch mit Y = 2! 
8öIFN$(X)<N$(X + Y) THEN 120 

Das Programm ist immer noch in der X-Schleife! 
Deshalb ist: xX=1; X+Y=3 
-80IFN$(1)<N$ (3) THEN 120 

— Laut Eingabe ist: 

N $ (1) = HORST 

N $ (3) = EMIL 


Der Vergleich ergibt: 
HORST ist NICHT KLEINER als EMIL, deshalb weiter mit 90 
9H$(X)=N$(X) H $ ist eine Hilfsvariable. Diese erhält den „Wert“ 
N $ (1) = HORST 
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100 N$(X)=N$(X+Y) 


118 N$(X+Y)=H$ 
126 NEXT Y 


Hier vertauschen die Variablen Ihren „Wert“. 

N $ (1) wird zuN $ (3) 

Also: N $ (1) wird EMIL, N $ (3) wird zu HORST 
Wieder zurück in die Y-Schleife. Y wird damit 3 
Achtung: Damit ist Y= Z; (Y = 3) 

Dies ist der letzte Durchlauf in der Y-Schleife! 


80 IFN$ (X) <N$(X + Y) THEN 120 

Das Programm ist immer noch in der X-Schleife! 
-80IFN $ (1)<N $ (4) THEN 120 

— laut Eingabe/Umwandlung ist: 


N $ (1) = EMIL 
N $ (4) = JUERGEN 
Der Vergleich ergibt: 


EMIL ist KLEINER als JÜRGEN 
Da aber mit Y = 3 diese Schleife gemäß Vereinbarung in: 70 FORY=1TO3 zu 
Ende ist, wird diese verlassen zu 


13687 =2-1 
146 NEXT X 


Z war 3 


gang. 


‚ wird zu 2 
RÜCKSPRUNG in die X-Schleife zu deren zweitem Durch- 


Der erste Durchlauf ist also beendet. Wie haben sich für die nächste Runde die 


Eingangsgrößen verändert? 


Zweiter Durchlauf: 
Eingangsgrößen: $() 
$ (2) 
$ (3) 
$ (4) 


66FORX=2TOA-1 
70FORY=1TOZ 


2 
1- 


EMIL 
KLAUS 
HORST 
JÜRGEN 


weil die Y-Schleife wieder von vorn beginnt! 


X = 2; da 2. Durchlauf! 
Z ist jetzt 2 


80 IFN$(X)<N$(X + Y) THEN 120 
In Zeile 80 erfolgt der Vergleich 


80IFN$(2)<N$ (3) THEN 
N $ (2) ist KLAUS 
N $ (3) ist HORST 

Der Vergleich ergibt: 


120 


KLAUS ist NICHT KLEINER als HORST,; deshalb: 


9H$=N$R) 


H $ erhält jetzt den „Wert“ KLAUS 


166 N$ (X) =N$ (X + Y) Die Variablen vertauschen ihren „Wert“ 
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110N$(X+Y)=H$ Also: N $ (2) wird HORST 
N $ (3) wird KLAUS 

126 NEXT Y Y wird jetzt zu 2, da 2. Lauf der Y-Schleife 
80IFN$(X)<N$(X + Y) THEN 126 
In Zeile 80 erfolgt der Vergleich 
80 IFN $(2)<N$ (4) THEN 126 

N $ (2) ist: HORST 

N $ (4) ist: JÜRGEN 


Der Vergleich ergibt: 

HORST ist KLEINER als JÜRGEN, deshalb zu 

120... hier ist vereinbart worden: 
.„.FORY=1TOZ; FORY=1TO2 

Y = 2 war aber bereits erreicht. Deshalb erfolgt 

1382 = 2-1 Z, war 2, wird 1 

146 NEXT X RÜCKSPRUNG in die X-Schleife 
zu deren drittem Durchgang. 


Zu Beginn des dritten Be ist nun: 


$ (1) = EMIL 

$ (2) = HORST 
N (3) = KLAUS 

$ (4) = JÜRGEN 
z = 3 


Y = 1 weil die Y-Schleife wieder 
von vorn beginnt. 
66FORX=3TOA-1 — also nur noch ein Durchlauf 
70FORY=1TOZ — Z ist jetzt 1 
80 IFN$ (X) <N$(X + 1) THEN 120 
In Zeile 80 erfolgt der Vergleich! 
80 IFN $ (3) <N $ (4) THEN 126 
N $ (3) = KLAUS 
N $ (4) = JÜRGEN 
Der Vergleich ergibt: 
KLAUS ist NICHT KLEINER als JÜRGEN, deshalb zu: 


99H$=N$(X) H $ wird zu KLAUS 
10 N$(X)=N$(X + Y) Die Variablen vertauschen Ihren „Wert“ 
118N$(X+Y)=H$ Also: N $ (3) = JÜRGEN 
N $ (4) = KLAUS 
126 NEXT Y Y-Schleife ist beendet! 
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130Z2Z=Z-1 Z wird zu © 
146 NEXT X X-Schleife ist beendet! 
Also: DAS SPIEL IST AUS! 
Nach dem 3. Durchlauf war: N $ (1) = EMIL 
N $ (2) = HORST 
N $ (3) = JÜRGEN 
N $ (4) = KLAUS 
Das ist die Liste, korrekt alphabetisch sortiert. 


Eine richtig sortierte Liste von Namen oder Begriffen wird nicht nur nach der 
alphabetischen Reihenfolge des ersten Buchstabens sortiert. Wie Sie sich beim 
Blick in jedes Telefonbuch überzeugen können, wird nach dem ersten der zweite 
Buchstabe, danach der dritte usw. auf alphabetische Reihenfolge hin untersucht. 
Überprüfen Sie, ob das Programm auch dazu in der Lage ist! 

Geben Sie ein: 
N=5 
ACHERN 
AHNSEN 
AALEN 
AHLEN 
AACHEN 
Das Programm wird daraus machen: 
AACHEN 
AALEN 
ACHERN 
AHLEN 
AHNSEN 
Auch Zahlen-Listen können Sie durch den Computer sortieren lassen. Dafür 
verwenden Sie im Prinzip das gleiche Programm; ich stelle es Ihnen unten - für 
Zahlen abgewandelt - vor. 
16 INPUT”’WIEVIELE ZAHLEN’”;A 
20 FORX=1TOA 
36 INPUT N(X) 
46 NEXT X 


EINGABE 


56Z=A-1 

66FORX=1TOA-1 

70FORY=1TOZ 

80 IF N(X) < N(X+Y) THEN 120 

98H =N(X) SORTIEREN 
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100 N(X) = N(X+Y) 
118 N(X+Y) =H 
120 NEXT Y 
13082=Z-1 

140 NEXT X 


1560 FORX = 1 TOA 
1660 PRINT N(X) AUSGABE 
170 NEXT X 


Was haben Sie dazugelernt? 


® Wie man Namen - oder, allgemein — Strings nach dem Alphabet sortiert. 

© Wie man Zahlen sortiert. 

© Wichtig - auch für die Programmentwicklung allgemein - ist die im Sortierpro- 
gramm steckende „Austauschformel“, mit der die Werte zweier numerischen 
oder Stringvariablen ausgetauscht werden. 


H$ = N$(N) H=NÜ) 
N$(I) = N$(I + Y) N) = N +Y) 
N$(I+Y) = H$ NI+Y)=H 


Es gibt übrigens eine Reihe von verschiedenen Sortierverfahren; eines davon 
werden Sie später noch kennenlernen. 

Wenn Sie in den Sortierprogrammen einmal mehr als 4 oder 5 Begriffe sortieren 
lassen, werden Sie bemerken, daß zwischen dem Start des Programms und der 
Ausgabe der Computer einen Augenblick „zögert“. Diese deutlich erkennbare Zeit 
benötigt er zum Sortieren. Die erwähnten verschiedenen Sortierverfahren unter- 
scheiden sich deshalb hauptsächlich in der notwendigen Ausführungszeit. 


© Vergessen Sie nicht zu DIMensionieren, wenn Sie mehr als 10 Strings oder 
numerische Größen sortieren wollen! 

© Ich würde gut verstehen, wenn Sie jetzt Ihr Telefonbuch-Programm um einen 
Programmblock erweitern möchten, mit dem die eingebenen Namen alphabe- 
tisch sortiert werden kann. 
Leider muß ich davor warnen, das mit dem obigen Programm zu versuchen. 
Das würde nicht funktionieren! 
Erlauben Sie mir ein wenig „Schleichwerbung‘“? 
In meinem Buch „Basic für Aufsteiger“ finden Sie u. a. dazu Programme, die 
diesen Job erledigen. 


39 Der Computer zum Spielen 


Gerade für Hobby-Computer gibt es eine Fülle von „Unterhaltungsprogrammen“. 
Ich will hier über Wert oder Sinn solcher Programme oder über die Beschäftigung 
damit nicht polemisieren - ich finde, man wird sie sehr schnell leid — sondern 
Ihnen lieber an Beispielen zeigen, wie Sie selbst solche Programme aufstellen 
können. Vielleicht macht Ihnen das mehr Spaß! 

Die meisten derartigen Programme arbeiten mit Zufallszahlen; Sie setzen dafür 
den „Zufallsgenerator“ Ihres Computers ein. 

Ein weiteres Element der Programme ist die IF... THEN...-Entscheidung, mit der 
Sie ja hinreichend vertraut sind. 


39.1 Das Zahlen-Ratespiel 


In diesem Programm „zieht“ der. Computer aus dem Zufallsgenerator eine belie- 
bige Zahl, die Ihnen zunächst verborgen bleibt. Sie sollen durch entsprechende 
Eingabe die gezogene Zahl „erraten“. Treffen Sie die richtige Zahl, gibt der 
Computer diese aus und sagt Ihnen gleichzeitig, wieviele Eingaben Sie bis zum 
richtigen Ergebnis benötigt haben. 

NEW 

5 CLS 

10 PRINT”ICH -— IHR COMPUTER - DENKE MIR EINE GANZE ZAHL” 

26 PRINT”DIE ZAHL LIEGT ZWISCHEN 1 UND 100” 

36 PRINT 

46 PRINT”SIE SOLLEN DIESE ZAHL SO SCHNELL WIE MOEGLICH ERRATEN” 
56R = INT (160 * RND(1) + 1) 

66 Y= 6 

76 PRINT 

860 PRINT”ICH BIN BEREIT!” 

96 PRINT 

106 INPUT”’WAS IST IHR VORSCHLAG”;X 

116Y=Y+H1 

126 IF X = RTHEN 145 

1360 IF X > R THEN 256 

146 GO TO 276 

145 CLS 
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156 PRINT”ICH GRATULIERE ! SIE HABEN’S ERRATEN !” 
166 PRINT”SIE HATTEN ”;Y;” VERSUCHE !” 

176 PRINT”WOLLEN SIE NOCH EINMAL RATEN” 

186 PRINT”’WENN JA, DRUECKEN SIE............... 1” 

196 PRINT”WENN NEIN, DRUECKEN SIE............. 25 

200 INPUT L 

210 IFL = 1 THEN 240 

215 CLS 

220 PRINT”SCHADE ! HAT ES IHNEN NICHT GEFALLEN ?” 
225 END 

240 FOR A = 1 TO 500 : NEXT 

245 CLS 

248 GO TO 50 

256 PRINT”ZU HOCH ! VERSUCHEN SIE ES NOCH EINMAL !” 
266 GO TO 106 

276 PRINT”ZU NIEDRIG ! BITTE NOCH EINMAL !” 

280 GO TO 106 


Ich bin sicher, daß Sie keine Schwierigkeiten haben, dieses Programm zu durch- 
schauen. 

Damit Sie sich bei Ihrem Computer nicht blamieren — weil Sie zu lange raten — 
will ich Ihnen einen Weg zeigen, wie man in solchen und ähnlichen Programmen 
am schnellsten zum Ziel kommt. Nehmen Sie dazu an, der Computer habe sich 
die Zahl 86 „gedacht“. 


Ihre Eingabe Die Ausgabe des Computers 

50 ZU NIEDRIG ! BITTE NOCH MAL ! 

75 ZU NIEDRIG ! BITTE NOCH MAL ! 

88 ZU HOCH ! VERSUCHEN SIE ES NOCH EINMAL ! 
81 ZU NIEDRIG ! BITTE NOCH EINMAL ! 

86 ICH GRATULIERE ! SIE HABEN’S ERRATEN ! 


SIE HATTEN 5 VERSUCHE ! 


Mit meiner ersten Eingabe habe ich mich bewußt für die MITTE der 100 mögli- 
chen Zahlen entschieden. Nach der Antwort des Computers gab es nur noch 50 
Möglichkeiten. Wieder habe ich mit 75 die Mitte gewählt usw. Die letzte Eingabe 
86 war purer Zufall. 

Blicken Sie noch einmal auf die Zeilen 186 bis 225 des Programms. Hier 
„bewertet“ der Computer Ihre Eingabe für L, um je nach der eingegebenen Zahl 
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eine Entscheidung für „Weitermachen“ oder „Abbruch“ zu treffen. Es gibt für 
derartige Entscheidungen zahlreiche Programmvarianten; die kürzestmögliche ist 
folgende: 

1606 INPUT”’L=";L 

1616 IFL = 1 THEN 1030 

1626 PRINT”’FALSCH” 

1625 END 

1636 PRINT”RICHTIG” 


Einen vergleichbaren Zusammenhang finden Sie in den Zeilen 126...145. Dort soll 
der Computer Ihre Eingabe (X) mit der aus dem Zufallsgenerator gezogenen Zahl 
(R) vergleichen. Dafür gibt es drei Möglichkeiten, nämlich: 


X=R 
X>R 
X<R 


Das Programm prüft nur zwei dieser Möglichkeiten (Zeilen 126, 136). Treffen 
beide NICHT zu, dann kann nur die dritte übrigbleiben und der Computer handelt 
mitX < R weiter im Programm. Auch diese Programmvariante werden Sie noch oft 
benötigen; Sie sollten sich diese also noch einmal genau ansehen und einprägen! 


39.2 Der Computer bringt Ihre Party in Schwung 


Sie werden jetzt ein Programm schreiben, das Ihre nächste Party ganz schön in 
Stimmung bringt. Und zwar wird der Computer — ohne daß Sie dabei in Erschei- 
nung treten — die Namen der geladenen Gäste erraten. Als Computerfachmann 
wissen Sie natürlich, daß er das ohne Ihre Hilfe nicht kann. Sie präparieren ihn 
für seine Aufgabe, bevor die Gäste erscheinen. Für das Programm benötigen Sie 
einige Informationen über Ihre Gäste, die Sie dem Computer anvertrauen und die 
er mit den Eingaben der Gäste vergleicht. 

Das Prinzip dieses einfachen - aber wirkungsvollen - Spiels erkennen Sie auch, 
wenn es nur für wenige Gäste programmiert wird; Sie können das Programm gern 
selbst für eine „Riesenparty“ abwandeln. Zunächst schauen Sie sich die Liste 
Ihrer Gäste an. Darin steht außer dem Namen der Geladenen noch ein Minimum 
an Zusatzinformationen. Und das ist Ihre Gästeliste: 

1. Klaus Müller, Ihr Duzfreund, noch Junggeselle. 

2. Erika Meier, unverheiratet, „hat was“ mit Klaus Müller 

3. Gerd Weber, verheiratet mit Gast 4, von Beruf Ingenieur, arbeitet in einem 
Industriebetrieb. 
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4. Gerda Weber, Frau von Gast 3, Hausfrau, 2 Kinder. 

5. Heinrich Bach, verheiratet mit Gast 6, selbständiger Handwerker. 

6. Helga Bach, verheiratet mit Gast 5, keine Kinder, Lehrerin. 

Aus diesem „Wissen“ müssen Sie Fragen formulieren, die der Computer Ihren 
Gästen stellen soll, um aus deren Antworten eindeutig auf den Namen des Gastes 
zu schließen. Diese Fragen sollen natürlich so unverfänglich wie möglich sein! 
Ich nenne Ihnen ein paar Auswahlkriterien, die für das Erraten Ihrer Gäste 
ausreichen. 


A) Der Gast ist entweder ein Mann oder eine Frau. 

B) Der Gast ist entweder verheiratet oder ledig. 

C) Der Gast ist selbständig oder unselbständig tätig. 

D) Der Gast hat Kinder oder er hat keine Kinder. 

Beginnen Sie Ihr Programm mit einer hübschen Einleitung! 


NEW 

5 CLS 

10 PRINT 

26 PRINT 

30 PRINT’GUTEN ABEND” 

46 PRINT”ICH MOECHTE IHNEN EIN SPIEL VORSCHLAGEN !” 

50 PRINT 

66 PRINT”ICH WERDE ERRATEN, WER SIE SIND UND IHNEN DAZU FRAGEN 
STELLEN” 

76 PRINT 

80 PRINT”WENN SIE MITSPIELEN WOLLEN: 


DE ae OEM DRUECKEN SIE DIE TASTE 1” 
96 PRINT”WENN NICHT 

PERS DENE LEER EEE IR ER RERERPREL PUENERRESERF DR ESEEREREH EN DRUECKEN SIE DIE TASTE 2” 
165 PRINT”DANACH JEWEILS DIE TASTE ’ENTER’ ” 


116 INPUTQ 


So weit, so gut. Wir bauen zunächst eine Sperre auf für den Fall, daß Ihre noch 
computerunerfahrenen Gäste falsche Tasten drücken! 

116 IFQ < 1 THEN 1066 

118 IF Q > 2 THEN 1000 

1006 CLS 

1065 PRINT”SIE HABEN EINE FALSCHE TASTE GEDRUECKT !” 

16016 PRINT”BEGINNEN WIR NOCH MAL VON VORN” 


Und damit sich der Gast von seinem Schreck erholen kann, bauen Sie eine kurze 
Pause ein! 
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1620 FOR X = 1 TO 566 : NEXT 
1036 GO TO 5 


Setzen Sie das Programm fort mit: 


115 CLS 

120 IFQ = 1 THEN 206 

136 IFQ = 2 THEN 135 

135 PRINT”DAS IST ABER SCHADE ! ICH WUENSCHE IHNEN TROTZDEM 
EINEN SCHOENEN ABEND !” 

146 END 


Nun sollten Sie ein „Sieb“ aus Fragen aufbauen, das alle Ihre Gäste passieren 
müssen. Das erste und einfachste Unterscheidungsmerkmal ist wohl: 
MANN oder FRAU 


266 PRINT”MEINE ERSTE FRAGE: 
SIND SIEEIN MANN ODEREINE FRAU?” 
205 PRINT”DRUECKEN SIE DIE TASTE 1 FUER MANN! 
216 PRINT”DRUECKEN SIE DIE TASTE 2 FUER FRAU!” 
220 INPUT A 
230 IF A = 1 THEN 280 
246 IF A = 2 THEN 5060 
250 IF A < 1 THEN 1666 
266 IF A > 2 THEN 1000 
280 CLS 
285 PRINT” GUTEN ABEND MEIN HERR! 
SIND SIE VERHEIRATET?” 
296 PRINT”JA = 1 ; NEIN = 2” 
Wenn der angesprochene Herr jetzt — hoffentlich wahrheitsgemäß — mit 2 antwor- 
tet, dann wissen Sie, daß es Ihr Freund Klaus sein muß. Denn er ist der einzige 
unverheiratete Mann auf Ihrer Party. 


306 INPUT B 

310 IF B= 1 THEN 380 

320 IF B= 2 THEN 350 

336 IF B< 1 THEN 1000 

346 IF B> 2 THEN 1066 

356 CLS 

355 PRINT”HALLO, KLAUS! ERIKA IST AUCH DA!” 
360 GO TO 10206 


War der Mann verheiratet, fragen Sie nach seinem Beruf. 


380 CLS 
385 PRINT”MEINE NÄCHSTE FRAGE: 


236 


39.2 Der Computer bringt Ihre Party in Schwung 


GELTEN SIE FUER DAS FINANZAMT ALS SELBSTÄNDIGER?” 
396 PRINT”JA = 1 ; NEIN = 2. 
466 INPUT C 
416 IF C = 1 THEN 470 
420 IFC = 2 THEN 445 
436 IF C < 1 THEN 1006 
440 IF C> 2 THEN 1000 
Diese Frage kann Herr Weber nur mit 2, Herr Bach nur mit 1 beantworten! 
445 CLS 
456 PRINT”ICH HAB’S! SIE SIND HERR WEBER!” 
466 GO TO 1026 
470 CLS 
486 PRINT”ICH BEGRUESSE SIE, HERR BACH!” 
496 GO TO 1026 
Damit sind alle geladenen Herren identifiziert. Wenden Sie sich den Damen zu! 
500 CLS 
565 PRINT”’GUTEN ABEND, MEINE DAME! 
SIND SIE VERHEIRATET?” 
510 PRINT”JA = 1 ; NEIN = 23 
526 INPUT D 


530 IF D = 1 THEN 585 
540 IF D = 2 THEN 565 
550 IF D< 1 THEN 1000 
560 IF D> 2 THEN 1006 


Nun kann sich mit 2 nur Erika zu erkennen gegeben! 


565 PRINT”HALLO, ERIKA! PASS’ GUT AUF KLAUS AUF!” 
580 GO TO 1020 
585 CLS 
596 PRINT”HABEN SIE KINDER, MEINE DAME?” 
606 INPUT E 
6160 IFE = 1 THEN 676 
620 IF E = 2 THEN 650 
636 IF E < 1 THEN 1066 
640 IF E> 2 THEN 1006 
650 CLS 
655 PRINT”’GUTEN ABEND, FRAU BACH! 
ICH WUENSCHE VIEL VERGNUEGEN!” 
660 GO TO 1026 
676 CLS 
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675 PRINT’GUTEN ABEND, FRAU WEBER! WAS MACHEN DIE KINDER?” 
680 GO TO 1020 


Ich bin ganz sicher, daß Ihre Gäste über dieses einfache Programm ganz verblüfft 
sind. Und Ihr Ansehen als Computerfachmann steigt sehr. 


39.3 Sie spielen gegen Ihren Computer 


Wenn Sie der Computerei treu bleiben, werden Sie früher oder später nicht mehr 
nur mit eigenen, sondern auch mit fremden Programmen arbeiten. 

Es gibt viele Möglichkeiten, an fremde Programme zu kommen. Sie können sie 
mit Gleichgesinnten austauschen oder Fachzeitschriften und speziellen Büchern 
entnehmen. Schließlich gibt es Firmen — „Software-Häuser“ -, die sich auf die 
Herstellung und den Vertrieb von Computerprogrammen spezialisiert haben und 
Ihnen diese als „Listing“ oder auf Datenträgern — wie Magnetbandkassetten oder 
Floppy - anbieten. 

Daß die Muttersprache Ihrer Basic-Befehle Englisch ist, haben Sie inzwischen 
gelernt. Vielfach sind auch die fremden Programme, die aus den oben beschriebe- 
nen Quellen stammen, hinsichtlich der Erläuterungen in englischer Sprache 
abgefaßt. 

Beim Arbeiten mit fremden Programmen werden Sie deshalb sehr oft vor zwei 
Problemen stehen: 
® Sie müssen Programm und Beiwerk verstehen und dazu — so weit notwendig - 

ins Deutsche übersetzen. 
© Sie müssen prüfen, ob es auf Ihrem Computer läuft; ggf. müssen Sie es dazu ein 
wenig abändern. 
Ich denke, wir sollten das an einem Beispiel einüben. Wir tun das an einem 
Programm, das ich einem der zahlreichen „Programmbücher“ “) entnommen 
habe. Es handelt sich um ein Spielprogramm, das Ihren Computer in die Lage 
versetzt, gegen Sie ein Kartenspiel zu spielen; und zwar das bekannte Spiel 
„Siebzehn und Vier“. 

Damit Sie eine Vorstellung davon bekommen, wie derartige Programme ausse- 
hen können, folgt das ausgewählte Spielprogramm auf den nächsten Seiten im 
Original; d. h., so, wie es in dem erwähnten Buch steht. 


10 REM BLACKJACK 

20 PRINT ”IF INSTRUCTIONS ARE REQUIRED TYPE YES” 
30 PRINT ”IF NOT TYPE NO” 

40 INPUT C$ 


") KEN TRACTON: „57 Practical Programs & Games in BASIC“ 
TAB Books Nr. 1000, TAB BOOKS Blue Ridge Summit Pa. 17214/USA 
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IF C$ = ”YES” THEN 90 
IF C$ = ”NO” THEN 340 
PRINT ”"INVALID RESPONSE” 


GOTO 20 

PRINT 

PRINT 

PRINT "THE COMPUTER AS THE DEALER, DEALS 


TWO CARDS TO ITSELF” 


PRINT "AND TWO CARDS TO THE PLAYER. THE PLAYER’S TWO 
CARDS” 

PRINT "ARE SHOWN FACE UP, WHILE ONLY ONE OF THE DEALER’S” 

PRINT "CARDS IS SHOWN. BOTH THE DEALER AND THE PLAYER” 

PRINT "MAY DRAW ADDITIONAL CARDS.” 

PRINT "THE PLAYER’S GOAL IS TO REACH 21 OR LESS, BUT” 

PRINT "BE CLOSER TO 21 THAN THE DEALER’S HAND.” 

PRINT "IF THE PLAYER’S OR THE DEALER’S HAND TOTALS” 

PRINT "GREATER THAN 21 HE IS BUSTED! THE KING” 

PRINT "THE QUEEN AND THE JACK ALL COUNT AS 10 POINTS.” 

PRINT "ALL OTHER CARDS EXCEPT THE ACE COUNT AS THEIR FACE” 

PRINT "VALUE SHOWS. THE ACE COUNTS AS 11 UNLESS THIS” 

PRINT ”WOULD CAUSE THE HAND TO BE OVER 21, IN THAT” 

PRINT "CASE THE ACE COUNTS AS 1.” 

PRINT "IF BOTH THE DEALER AND THE PLAYER GET BLACKJACK” 

PRINT "WHICH IS A TWO CARD HAND TOTALING 21” 

PRINT ”NEITHER WINS, IT IS A PUSH” 

PRINT "IF THE DEALER’S HAND IS BELOW OR EQUAL TO 16” 

PRINT "HE MUST DRAW, AFTER 17 THE DEALER MUST STAND” 

PRINT ”TO RECEIVE A CARD YOU WANT A HIT-” 

PRINT ”TO STOP WHERE YOU ARE; YOU STAND-” 

PRINT 

PRINT "***GOOD LUCK#**MAY THE BEST ONE WIN%%*x” 

REM 1.ST HAND 

RANDOMIZE 

LETD=6 

LETP=D 

GOSUB 826 

LETD1=C 

GOSUB 820 

LETD2 =C 
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420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 


550 
560 
570 
580 
590 
600 
616 
620 
630 
640 
656 
660 
670 


680 
690 
706 
716 
730 
740 
750 
766 
770 
786 
796 
800 
810 
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GOSUB 890 

LETP1 =C 

GOSUB 890 

LET P2 = 3 

PRINT 

PRINT "THE DEALER HAS A”;D1;’SHOWING” 
PRINT ”YOU HAVE A ";P1;” AND A ”;P2 
PRINT ”YOUR TOTAL IS ";P1 + P2 
LETD=D1+ D2 

LETP=P1+P2 

IF P= 21 THEN 640 

GOSUB 960 

IF L = 1 THEN 690 


IF D <= 16 THEN 740 

PRINT "THE DEALER HAS ”;D 

PRINT "YOU HAVE ";P 

IF P> D THEN 620 

REM WIN OR LOSS STATEMENTS 

PRINT "THE DEALER HAS WON!!!” 

GOTO 1060 

PRINT "YOU HAVE WON!!!” 

GOTO 1060 

PRINT "***YOU HAVE BLACKJACK%x” 

IF D = 21 THEN 670 

GOTO 560 

PRINT "THE DEALER ALSO HAS BLACKJACK, 
SORRY NO WINNER” 

GOTO 1060 

GOSUB 890 

PRINT ”YOUR CARD IS ";C 

IF P> 21 THEN 600 

GOTO 530 

PRINT "THE DEALER HAS ";D 

GOSUB 820 

LETD=D+C 

PRINT "THE DEALER DRAWS A ";C 

PRINT "HIS TOTAL IS ";D 

IF D> 21 THEN 620 

IF D <= 16 THEN 750 

GOTO 566 


39.3 Sie spielen gegen Ihren Computer 


820 LETC = 1 + INT(11*RND) 
830 IFC = 11 THEN 850 
840 GOTO 880 
850 IFD + C > 21 THEN 876 
860 GOTO 880 
870 LETC=1 
880 RETURN 
896 LETC = 1 + INT(11*RND) 
906 IFC = 11 THEN 926 
916 GOTO 950 
926 IFP +C > 21 THEN 946 
930 GOTO 950 
946 LETC=1 
956 RETURN 
960 PRINT ”DO YOU WANT A HIT.OR DO YOU STAND” 
970 INPUT Q$ 
986 IF Q$ = "HIT” THEN 1020 
990 IF Q$ = ”STAND” THEN 1046 
1600 PRINT "INVALID RESPONSE” 
10106 GOTO 960 
10626 LETL=1 
1030 GOTO 1656 
1646 LETL=0 
1050 RETURN 
1666 PRINT 
1070 PRINT ”DO YOU WISH TO PLAY AGAIN” 
1080 PRINT "TYPE YES OR NO” 
1696 INPUT L$ 
1106 IF L$ = ”YES” THEN 1136 
1116 PRINT ”"BLACKJACK SAYS GOOD-BYE” 
11206 STOP 
1130 PRINT 
1146 GOTO 20 
1150 END 


Haben Sie das Programm einmal durchgesehen? Dann werden Sie bemerken, daß 
in den Programmzeilen 126 bis 340 die „Spielregeln“ enthalten sind, nach denen 
Programm und Spiel aufgebaut sind. 

Ich werde deshalb diesen Teil zunächst einmal ins Deutsche übersetzen; für 
den weiteren Verlauf ist es wichtig, daß Sie die Spielregeln genau kennen. 
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10 PRINT CHR$(147) 

20 PRINT”’WENN SIE DIE SPIELREGELN” 

25 PRINT”SEHEN WOLLEN.....GEBEN SIE ’J EIN !” 

30 PRINT”’WENN NICHT....... GEBEN SIE ’N’ EIN !” 

35 PRINT : PRINT : PRINT”’DANACH ’RETURN’ !” 

40 INPUT C$ 

56 IF C$="J” THEN 96 

66 IF C$="N” THEN 360 

76 PRINT : PRINT 

75 PRINT”’FALSCHEINGABE !” 

77 PRINT” ’J ODER ’N’ EINGEBEN !” 

80 FOR X=1 TO 20060 : NEXT : GOTO 10 

96 PRINT CHR$(147) 

160 PRINT" ##3aaakakakıık SIEBZEHN UND VIER aksakakakacıkk” 
110 PRINT 

126 PRINT”IHR COMPUTER SPIELT DIE BANK.” 

122 PRINT”ER GIBT SICH SELBST ZWEI KARTEN.” 

125 PRINT 

136 PRINT”SIE ERHALTEN EBENFALLS ZWEI KARTEN.” 
135 PRINT 

146 PRINT”’DIE WERTE IHRER KARTEN WERDEN” 

145 PRINT”’IHNEN GEZEIGT.” 

147 PRINT 

156 PRINT”’VON DEN ZWEI KARTEN DES COMPUTERS” 
155 PRINT”SEHEN SIE NUR EINE.” 

158 PRINT 

160 PRINT”BEIDE SPIELER KOENNEN ZUSAETZLICHE” 
165 PRINT”’KARTEN ZIEHEN.” 

167 PRINT 

176 PRINT”IHR ZIEL IST ES,21 ODER WENIGER” 

175 PRINT”’ZU ERREICHEN.ABER SIE SOLLTEN DICHTER” 
178 PRINT”BEI 21 SEIN ALS DIE BANK !” 


An dieser Stelle ist mir eingefallen, daß ich sicher die gesamte Spielanleitung 
nicht auf einmal auf den Bildschirm bekommen werde. Außerdem sollten Sie 
diese auch in Ruhe betrachten können. Ich habe deshalb unten mit einem 
INPUT Q weitergemacht. Wenn Sie also den ersten Teil der Regeln verdaut haben, 
drücken Sie „ENTER“, und es folgt der zweite Teil. Aber fahren Sie erst einmal in 


dem Programm fort! 
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186 INPUT Q : PRINT CHR$(147) 

185 PRINT”DER SPIELER HAT VERLOREN,DESSEN” 

196 PRINT”’AUGENZAHL UEBER 21 LIEGT.” 

195 PRINT 

260 PRINT”’KOENIG,DAME UND BUBE HABEN DEN WERT 10.” 
265 PRINT”’ALLE ANDEREN - MIT AUSNAHME DES ’ASS’ —” 
216 PRINT”DEN AUFGEDRUCKTEN WERT.” 

215 PRINT 

226 PRINT’DAS ’ASS’ ZAEHLT 11 - ES SEI DENN,” 

225 PRINT”SPIELER ODER BANK WUERDEN DADURCH” 

236 PRINT”’UEBER 21 KOMMEN.” 

235 PRINT 

238 PRINT”’IN DIESEM FALLE ZAEHLT DAS ’ASS’ EINS.” 
240 PRINT 

245 PRINT”FALLS DIE BANK 16 ODER WENIGER HAT” 

256 PRINT”MUSS SIE EINE KARTE ZIEHEN.AB 17” 

255 PRINT”’DARF DIE BANK NICHT MEHR ZIEHEN.” 

266 INPUT Q : PRINT CHR$(147) 

276 PRINT”FALLS SPIELER ODER BANK MIT ZWEI KARTEN” 
275 PRINT”21 ERREICHEN, HABEN SIE ’BLACKJACK’ —” 

280 PRINT”’ES GEWINNT NIEMAND !” 

285 PRINT 

296 PRINT”SIE KOENNEN NACH BELIEBEN EINE KARTE” 
295 PRINT”ZIEHEN ODER PASSEN !” 

300 PRINT : PRINT : PRINT 

316 PRINT seeeeaaasakıkık VIEL GLUECK ! sRakakakakakakakakıkık”” 
320 INPUT Q 


Ab Zeile 356 beginnt nun im Original das eigentliche Programm. Es hat die 
Aufgabe: 


© Den beiden Spielern - also Ihnen und Ihrem Computer, der die „Bank“ spielt — 
zunächst je 2 Karten zu geben. 
© Das Programm bedient sich dazu zweier Zufallsgeneratoren; je eines für die 
Bank und den Spieler. 
© Dann muß das Programm den zahlreichen, zunächst nicht recht verständli- 
chen Regeln folgen. 
Nach den Regeln muß es: — Ihnen weitere Karten anbieten und „zuweisen“. 
— Die Bank „ziehen“ lassen. 
— Den Sieger ermitteln und „melden“. 
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Machen Sie sich zunächst mit den Spielregeln vertraut. Indem Sie entweder das 
Programm ein paarmal durchrauschen lassen oder den obigen Text lesen. 

Sie könnten nun ab Zeile 3560 das Originalprogramm eingeben und dabei 
allenfalls die Texte in den PRINT...-Zeilen übersetzen. Ich habe das auch so 
gemacht. Aber ich bin nicht recht glücklich mit dem Programm geworden. Daß in 
Zeile 450 ein Druckfehler steckt (es muß wohl ...LET P2 = C heißen statt ...3), habe 
ich rasch gemerkt. Aber... 

Immerhin bin ich durch mein „Unglück“ in der Lage, Ihnen einige weitere 
Merkregeln mit auf Ihren Weg zum Programmierer zu geben. 


® Auch das, was Sie „schwarz auf weiß“ haben, muß nicht zum Erfolg führen. Das 
kann an dem Programm liegen, an Ihnen oder daran, daß das Programm sich mit 
Ihrem Computer „nicht verträgt“. 

® Ein fremdes Programm gedanklich nachzuvollziehen, ist nicht einfach, wenn es 
— wie in unserem Beispiel - nicht verbal oder sonstwie erklärt ist. Das mag daran 
liegen, daß jeder Programmierer die Aufgabe anders anpackt; bekanntlich „füh- 
ren viele Wege nach Rom...” 
Wenn Sie „basteln“ — beispielsweise Radios oder sonstige Elektronikschaltun- 
gen — werden Sie davon eine gute Vorstellung haben. Es ist oft einfacher, ein 
Gerät noch einmal von Grund auf neu zu bauen, als in einem nicht funktionie- 
renden mit unzureichenden Mitteln oder unzureichendem Wissen einen Fehler 
zu suchen. 


Kurzum - ich habe mich entschlossen, das Programm selbst zu Ende zu machen — 
wobei mir das vorhandene gute Dienste geleistet hat. 

An dieser „Entwicklungsarbeit“ möchte ich Sie jetzt teilhaben lassen; Sie 
werden dabei eine Menge lernen. 

Um das Problem zu verstehen, habe ich mir zunächst die unten stehende 
Abbildung gezeichnet, in dem die wichtigsten Programm-,Pakete“ in Kästchen 
aufgeschrieben sind (Abb. 34). 


Sie haben erkannt, daß D die Karten für den „DEALER“ (das ist die Bank) und P 
die Karten für den „Player“ (das sind Sie) sind. Zu Beginn des Spieles sind Dund 
P gleich 6. 

Da ich im folgenden meine Erläuterungen in das Programm einstreue, mache 
ich zu Beginn jeder Programmzeile, die Sie in Ihren Computer eingeben sollen, 
einen „Punkt“, damit Sie nicht den Überblick verlieren. Es geht los! 


@ 3565D=-6:P=Ö 


Jetzt verzweigt das Programm viermal hintereinander in die Unterprogramme 16d 
0...1660 und 1106...1160. Dort stehen die Zufallsgeneratoren, die die Karten 
ausgeben. 
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INT (11*RND(1) + 1) ist deshalb gewählt, weil in diesem Spiel die Karten 
zwischen 1 und 11 liegen. 

In den Unterprogrammen wird laut Spielregeln gleichzeitig geprüft: 
© Ist die gezogene Karte 11? (Zeilen 1016 und 1110) 
© Ergibt die gezogene Zahl mit der/mit den schon vorhandenen mehr als 21? 
(Zeilen 1636 und 1130) 
In diesem Fall wird C = 1 gesetzt. Für die erste Runde kann das noch nicht 
zutreffen! 


386 GOSUB 1666 
398 D1=C 

466 GOSUB 1006 
100276 Text - Teil 

420 GOSUB 1100 (Bedienungsanleitung ) 
430 P1=C 

440 GOSUB 1106 
456P2=C 


Unterprogramme : 


Zufallsgenerator für Spieler 
11B8.....116R 


Kartenangebot an Spieler 
1328 .......1420 


Programm zur Ermittlung 
des Siegers 


neues Spiel ? 


Abb. 34 Das Grob-Flußdiagramm 1200....1300 


zu dem Spiel „Black Jack“ 


Hier ist es erstmals von Interesse, das Programm auf richtige Funktion zu prüfen. 
Tun Sie das! 

466 PRINT”KARTEN FUER DIE BANK” 

476 PRINT”D1=";D1,,”D2=";D2 

475 PRINT’KARTEN FUER DEN SPIELER” 

480 PRINT”P1=";P1,,,”P2=";P2 

480 PRINT”P1=";P1,,,”P2;P2 

496 STOP 

Lassen Sie das ein paarmal laufen, wobei Sie — um Zeit zu sparen — mit RUN 356 
starten. 


Da bereits beim ersten Durchgang für Spieler und/oder Bank insgesamt 21 
gezogen sein können, überprüfen wir das Ergebnis. Laut Spielregeln ist das der 
„Black-Jack“-Fall. 

„IF P1 + P2 = 21 THEN... 
..IF[P1+P2=21) AND (D1+D2=21) THEN... 
wären angebrachte „Prüfmethoden“! 
Treffen beide Prüfungen NICHT zu, dann gilt laut Spielregeln: 
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Der Spieler kann beliebig eine weitere Karte nehmen oder ablehnen. Dazu 
benötigen wir ein „Karten-Angebotsprogramm“. 

Die Bank MUSS eine weitere Karte ziehen, wenn die Summe der bisher 
gezogenen Karten 16 ODER KLEINER ist. 

Die Bank darf KEINE KARTE mehr ziehen, wenn die Summe der bisher 
gezogenen Karten 17 ODER GROESSER ist. 

Bevor der Spieler eine neue Karte angeboten bekommt, muß ihm sein bisher 
erreichtes Ergebnis „aufgedeckt“ werden. 

Aber: von den beiden Karten, die für die Bank gezogen wurden, bekommt der 
Spieler NUR EINE zu sehen (damit das Spiel auch spannend bleibt!). 
Machen wir weiter im Programm! 

@ 466 IF (Pi+P2=21) AND (D1+D2=21) THEN 506 

® 470 IF Pi+P2=21 THEN 480 

® 475 GO TO 536 

@ 480 PRINT "GRATULIERE !” 

@ 485 PRINT "SIE HABEN ’BLACKJACK’ !” 


Damit ist das erste Spiel bereits beendet und wir springen in einen Programmteil 
ab Zeile 1200, in dem ein NEUES SPIEL angeboten wird. Damit können wir uns 
im Augenblick noch Zeit lassen! 


® 490 GO TO 1200 

@ 506 PRINT”SIE HABEN PECH! AUCH DIE BANK HAT ’BLACKJACK’!” 
@ 510 PRINT”’ES GIBT DESHALB KEINEN GEWINNER!!” 

® 526 GO TO 1206 

Jetzt müssen wir aber „die Karten auf den Tisch legen“! 


530 PRINT CHR$(147) 

535 PRINT”DIE BANK HAT EINE KARTE MIT DEM WERT ";D1 
546 PRINT : PRINT”DIE ZWEITE KARTE DER BANK” 

545 PRINT”BLEIBT VERDECKT.” 

550 PRINT : PRINT 

560 PRINT”FUER SIE WURDEN ”;P1 

565 PRINT”........... UND ”;P2;” GEZOGEN.” 

570 PRINT 

575 PRINT”SIE HABEN DAMIT BEREITS :”;P1+P2 

580 PRINT : PRINT 


Damit Sie das Ergebnis in Ruhe betrachten und danach Ihre Entscheidung für den 
weiteren Fortgang des Spiels machen können, folgt jetzt eine „Kunstpause“. 


@ 585 FOR X = 1 TO 20060 : NEXT 
Jetzt müssen Sie in dem Programm: 
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® dem Spieler eine neue Karte anbieten. 

® prüfen, ob die Bank „ziehen“ muß oder nicht. 

Wir fassen zunächst das bisher erreichte Ergebnis zusammen: 

®@ 596 D = D1+D2 

© 606 P= P1+P2 

Jetzt folgt das „Kartenangebot“ an den Spieler, das in einem weiteren Unterpro- 
gramm ab Zeile 1320 untergebracht ist. 

® 610 GOSUB 1320 

Und nun muß ich gestehen, daß ich bei der weiteren Programmentwicklung arg 
ins Schwitzen geraten bin. Ich will Ihnen die zahlreichen Irrwege nicht zumuten, 
sondern Ihnen nur die Probleme schildern, die mich so in „Streß“ gebracht haben. 


© Es ist im voraus nicht bekannt, wie oft der Spieler von dem Angebot, eine neue 
Karte zu ziehen, Gebrauch macht. Er muß ja darauf achten, daß er nicht über 21 
kommt und darf das Spiel jederzeit abbrechen. Dieser Spielabbruch wird 
erreicht, wenn der Spieler keine neue Karte mehr haben will. 

® Sie müssen in jeder neuen Runde nach den Spielregeln prüfen, ob auch die 
Bank eine neue Karte ziehen muß oder ob sie keine mehr ziehen darf. 

® Sie müssen immer die Gesamt-Augenzahl der gezogenen Karten verfolgen. 

® Hat der Spieler das Spiel durch Verweigerung einer neuen Karte abgebrochen, 
dann müssen Sie die Gesamt-Augenzahl beider Spieler ausgeben und 

® entscheiden, wer gewonnen hat. 

Das größte Problem war dabei zunächst, die Gesamt-Augenzahl zu errechnen. 


Ich zeige Ihnen wieder an einer Graphik, wie ich am Ende den Rest des 
Programms aufgebaut habe (Abb. 35). 


© 605 Y=0: Z=0 

Das ist der Beginn von zwei Zählschleifen, mit denen die Gesamt-Augenzahlen 
beider Spieler ermittelt werden. 

® 620 IFL = 1 THEN 640 


MIT L = 1 gibt der Spieler im Unterprogramm ab 1320 zu erkennen, daß er eine 
neue Karte haben möchte. Das bedeutet, daß der Computer zum Zufallsgenerator 
geht und eine neue Karte für den Spieler herbeischafft. 

© 646 GOSUB 1100 

@ 650 PRINT”SIE HABEN ”;C;” GEZOGEN 

Das kann Ihnen reichen — oder auch nicht. Um zu verfolgen, wie oft Sie ziehen, 
setzen wir den Zähler um eins weiter! 

© 666 Y = Y+1 

Jetzt wird’s tückisch! Wir müssen die gezogene Karte aufaddieren. Und zwar mit 
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605 Y=N:Z7=D 
610 U-Programm 
"Karte anbieten” 


U-PRO 1100 
Karte ziehen 


Zähler: 
Y=Y+1 
EIY)=C P=P+ClY) 


nein 
U-PRO 1008 
Karte ziehen 


Zähler : 
1=1+1 
C(Z)=C D=D+C(Z) 


z Spieler verliert 


nein 


Abb. 35 Das Flußdiagramm ist 
schon recht komplex 


1200 
neues Spiel 


" Spieler gewinnt ee 


nein 


> Spieler gewinnt 
Spieler verliert 


nein 
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1200 
neues Spiel 
1208 
neues Spiel 


39.3 Sie spielen gegen Ihren Computer 


einem Programm, das diese Aufgabe bewältigt, ohne zu wissen, wie oft gezogen 
wird! 

Das können wir nicht machen mit den vom Computer gelieferten numerischen 
Variablen aus dem Zufallsgenerator (C). Um C „zählbar“ zu machen, müssen wir 
die numerische in eine indizierte Variable umwandeln — weil wir bei denen die 
„Indices“ mitzählen können! Das geschieht wie folgt: 

® 6760 C(Y)=C 

© 686 P=P+C(Y) 

Und nun sagen wir dem Spieler: 


® 696 PRINT”SIE HABEN NUN ”;P 

Fairerweise müssen wir dem Spieler für seine nun fällige Entscheidung, ob er 
eine weitere Karte ziehen soll oder nicht, verraten, was die Bank gezogen hat. 
Dazu müssen wir die Bank erst mal ziehen lassen - nicht ohne vorher geprüft zu 
haben, ob die Bank auch ziehen darf! 

® 706 IF D >= 17 THEN 616 

© 716 GOSUB 1066 

®@ 7206 PRINT”DIE BANK HAT ”;C;” GEZOGEN” 


Mit den folgenden Programmzeilen verfolgen wir, was die Bank gezogen hat. 

® 730Z2=Z+1 

© 74ö6C(Z2)=C 

® 7565D=D+Ci(Z) 

® 770 GO TO 616 

Jetzt wollen wir annehmen, daß der Spieler im Unterprogramm ab 1320 keine 
neue Karte gezogen hat. Er hat das durch die Eingabe von L = Ö zu erkennen 
gegeben. Sie müssen jetzt: 


— das Spiel abbrechen 
ermitteln, wer der Sieger ist. 
— In 626 war geprüft worden „...will der Spieler eine Karte...?“ - und zwar durch 


„IFL= 1... 
— Will er keine, dann ist L NICHT 1 und es geht im Programm weiter: 


© 630 GO TO 820 

Jetzt folgt die Prüfung: „Wer hat gewonnen?“ — denn das Spiel ist ja beendet und 
Sie müssen das Ergebnis ermitteln und verkünden. 

@® 820 IFP > 21 THEN 845 

@ 8306 IFD > 21 THEN 875 

@ 840 IFP > D THEN 875 
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Und nun verkünden Sie das Ergebnis des Spieles: 


845 PRINT CHR$(147) 

850 PRINT” ===========SIEHABEN VERLOREN ========" 
855 PRINT 

860 PRINT” SIE HABEN ”;P;” DIE BANK HAT ”;D 

870 GO TO 1206 

875 PRINT CHR$(147) 

880 PRINT” =========== SIEHABEN GEWONNEN =======" 
885 PRINT 

896 PRINT”DIE BANK HAT ”;D; SIE HABEN ”;P 

900 GO TO 1200 


Es folgen jetzt noch die Unterprogramme für die Zufallsgeneratoren, für „Neues 
Spiel?“ sowie der Programmblock „Kartenangebot“. 


999 REM *#**** ZUFALLSZAHL FUER DIE BANK kick 
16066 G=INT(11*RND(1)+1) 
16016 IF C=11 THEN 1036 
1620 GOTO 1066 
1630 IF D+C>21 THEN 1050 
1640 GOTO 1066 
16050 C=1 
1660 RETURN 
1699 REM ***** ZUFALLSZAHL FUER DEN SPIELER xxx*x* 
1166 C=INT(11*RND(1)+1) 
1116 IF C=11 THEN 1130 
1126 GOTO 1166 
1136 IF P+C>21 THEN 1150 
1148 GOTO 1166 
11560 C=1 
1166 RETURN 
1199 REM *#**** 'NEUES SPIEL ?° Besssaslalalalalalalalaıcık 
1206 FOR X=1 TO 3060 : NEXT 
1265 PRINT CHR$(147) 
1216 PRINT : PRINT 
1215 PRINT”’WUENSCHEN SIE EIN NEUES SPIEL ?” 
1226 PRINT 
1225 PRINT”WENN JA...... TIPPEN SIE ’J’” 
1236 PRINT”’WENN NEIN.... TIPPEN SIE ’N’” 
1235 PRINT : PRINT : PRINT”DANACH ’RETURN’ !” 
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1240 INPUT A$ 

1245 IF A$="J” THEN 1280 

1250 IF A$="N” THEN 1290 

1255 PRINT CHR$(147) : PRINT”UNGUELTIGE EINGABE !” 
1260 GOTO 1206 

1280 PRINT CHR$(147) : PRINT : PRINT 

1285 PRINT”’AUF EIN NEUES !” : FOR X=1 TO 1060 : NEXT 
1288 GOTO 350 

1296 PRINT CHR$(147) 

1295 PRINT : PRINT 

1306 PRINT”SCHADE ! SIE WAREN EIN PRIMA GEGNER !” 
1316 PRINT : PRINT”AUF WIEDERSEHEN !” 

1315 END 

1319 REM »#**** 'NEUE KARTE ?° raeskakkkakkkkkikchk ck 
1326 PRINT”WUENSCHEN SIE NOCH EINE KARTE ?” 
1325 PRINT 

1336 PRINT”WENN JA...... TIPPEN SIE ’J’” 

1335 PRINT”’WENN NEIN.... TIPPEN SIE ’N’” 

1346 PRINT : PRINT”DANACH ’RETURN’ !” 

1345 INPUT B$ 

1356 IF B$="J” THEN 1390 

1360 IF B$="N” THEN 1410 

1376 PRINT CHR$(147) : PRINT”’UNGUELTIGE EINGABE !” 
1375 FOR X=1 TO 2060 : NEXT : GOTO 1320 

1396 L=1 

1406 GOTO 1420 

1410 L=Ö 

1420 RETURN 


39.4 Sie erweitern den Tabulator Ihres Computers 


In vielen Programmen haben Sie die Fähigkeit Ihres Computers genutzt, auf ein 
Komma hin eine Spalte weiter zu rücken. Wie die meisten Personal Computer 
haben auch unsere Testkandidaten die Fähigkeit, mit Kommas max. vier Spalten 
auf den Bildschirm zu bringen. 


Es gibt in Basic einen Befehl, mit dem die „Tabellierfähigkeit‘“ des Computers 
erweitert werden kann. Dieser Befehl heißt: TAB (...), wobei TAB für TABulator 
steht. 

Üben Sie das in einem kleinen Programm! 
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NEW 

5 CLS 

10 PRINT TAB(16) ”W” 

26 PRINT TAB(11) ”E” 

36 PRINT TAB(12) ”B” 

46 PRINT TAB(13) ”E” 

50 PRINT TAB(14) ”R” 

Dieses Programm führt zu folgendem Ergebnis: 

Spalte 10*) 


Sie haben also in (...) befohlen, wo der Tabulator die neue Zeile beginnen soll; im 

Beispiel hat er den ersten Buchstaben (W) in die 10. Spalte gesetzt und ist danach 

jeweils um eine Zeichenposition weitergerückt. 

Das gleiche Ergebnis erhalten Sie mit: 

10 PRINT TAB(10)”W”:PRINT TAB(11)”E”:PRINT TAB(12)”B”: PRINT TAB 
(13)”E”:PRINT TAB(14)”R” 


Bitte merken Sie sich: 


® Der TAB(...)-Befehl funktioniert nur zusammen mit dem PRINT-Befehl. 

Versuchen Sie sich jetzt einmal an einem sinnvolleren Gebrauch des TAß{(...)- 

Befehls! 

NEW 

5 CLS 

10X=1 

20 PRINT TAB(2) X*2;TAB(8) X*3;TAB(14) X*4;TAB(20) X*5;TAB(26) X*6; 
TAB(32) X*7 

38X=XH1 

46 IF X > 16 THEN 60 

50 GO TO 26 

66 END 


Ist das Ergebnis nicht eine gelungene „Rechentafel“? 


*) Beachten Sie, daß CPC 464 und C-64 die Zeichenpositionen von 0...39 zählen! 
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39.5 Noch einmal: Lottozahlen! 


Bitte merken Sie sich: 


© Bei einer Darstellungsart wie der oben gezeigten brauchen Sie nur zu Anfang 
den PRINT-Befehl. 

© Sie müssen die einzelnen Abschnitte mit ; (Semikolon) voneinander trennen, 
damit der Computer weiß, daß er weitermachen und nicht zu einer neuen Zeile 
gehen soll. 

© Sie müssen beachten, wieviele Zeichen maximal auf eine Zeile passen. Beim 
C-64 sind das 40 Zeichen (6...39). Und beim CPC 464 wahlweise genau so viele 
bzw. 80 Zeichen (0...79). 

Wenn Sie Lust haben, können Sie ja mal alle Programme daraufhin durchsehen, 

ob sich nicht der „Informationsinhalt“ der Computerausgabe durch die Anwen- 

dung des TAB(...) Befehls erweitern läßt! 


39.5 Noch einmal: Lottozahlen! 


Kramen wir noch einmal folgendes Programm hervor: 
NEW 

5CLS 

16 FORN =1TO6 

20 T(N) = INT(49 * RND(1) + 1) 

30 PRINT T(N) 

40 NEXT N 


Sie haben den Mechanismus des Zufallsgenerators noch im Kopf? Dann wissen 
Sie, daß dieses Programm innerhalb der 6 ausgegebenen Zahlen zwar alle zwi- 
schen 1 und 49 anordnet, daß aber in einer Zufallszahlenreihe auch zweimal die 
gleiche Zahl erscheinen kann. Mir ist das zwar erst beim 12. Durchlauf passiert. 
Aber es kann genau so gut beim 2. oder beim 35. geschehen! 

Wir sollten das Programm so erweitern, daß es jede gezogene Zahl daraufhin 
überprüft, ob sie schon einmal gezogen wurde. Falls das zutrifft, sollte diese Zahl 
verworfen und eine neue gezogen werden; solange, bis keine Dopplungen mehr 
auftreten. 

Fangen Sie noch einmal von vorn an! 
Sie erledigen das „Prüfen“ und „Verwerfen“ mit zwei ineinander verschachtelten 
FOR...-NEXT-Schleifen. 


30 IFN = 1 THEN 70 

40 FORM=1TON-1 

50 IF T(N) = T(M) THEN 20 
60 NEXT M 

76 NEXT N 
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39 Der Computer zum Spielen 


Nun lassen Sie sich die Liste ausgeben! 


80 FORN = 1TO6 
90 PRINT T{N) 
100 NEXT N 


Lassen Sie das Programm so oft „fahren“, bis Sie mir glauben, daß keine Zahl 
zweimal kommt! 

Sie haben bemerkt, daß die erwähnte Prüfung in den Zeilen 40 bis 60 geschieht? 
Ich hatte beim ersten Durchlauf des Programms folgendes Ergebnis: 
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Daran stört mich, daß die Zahlen genauso durcheinander stehen, wie sie der 
Computer gezogen hat. Wozu haben wir das Sortieren gelernt? 

Die nächsten Programmzeilen sortieren jetzt die vom Computer gezogenen 
Zahlen in aufsteigender Reihenfolge. Dabei führe ich Ihnen gleichzeitig ein neues, 
recht einfaches Sortierverfahren für Zahlen vor. Dieses Sortierprogramm hat eine 
gewisse Ähnlichkeit mit den bereits besprochenen. Der deutlichste Unterschied 
steckt in der Vergleichszeile; und zwar wird nicht geprüft, ob die erste Zahl 
kleiner ist als die zweite, sondern ob sie größer ist! 


Lassen Sie sich überraschen! 


„A=5 hier stand früher: A = N - 1, wobei N die Anzahl der zu 
sortierenden Zahlen war. Da Sie hier 6 Zahlen sortieren wollen, 
können Sie es sich einfacher machen! 

805S=6 

96 FORN = 1TO5 

106 IF T(N+1) > = T(N) THEN 160 

116 H = T(N) 

126 T(N) = T(N+1) 

136 T(N+1)=H 

148S=1 

160 NEXT N 

165 IF S > ö8 THEN 86 


Lassen Sie sich den „Tip der Woche“ Ihres Computers ausgeben! 


170 PRINT”’MEIN TIP DER WOCHE LAUTET: ” 


39.5 Noch einmal: Lottozahlen! 


196 FORN =1TO6 
2060 PRINT T(N) 
210 NEXT N 


Ich bemerke schon, daß Sie auf dem besten Wege zum Perfektionisten sind! Ihnen 
mißfällt, daß das Ergebnis untereinander steht! 
Dann setzen Sie es halt nebeneinander! 


196PRINT TAB(2) T(1);TAB(8) T(2); TAB(14) T(3); TAB(20) T(4); 
195 PRINT TAB(26) T(5); TAB(32) T(6); TAB(36) T(6) 

200 

210 


Zum Lotto-Spielen ist mir noch etwas eingefallen! Das Ergebnis der Zahlenzie- 
hung erleben Sie im Fernsehen ja so, daß nicht nur die sechs Richtigen angezeigt 
werden, sondern auch noch die Zusatzzahl. 

Diese wird beim Tippen bekanntlich nicht angekreuzt; wenn wir also noch 
etwas mit der Zusatzzahl anfangen wollen, dann müssen wir unser Programm 
umwandeln zu einem „Lotto-Vorhersage-Programm“! 

Das nächste Programm soll also alle sechs Lottozahlen in aufsteigender Reihen- 
folge ausgeben und zum Schluß die Zusatzzahl vorhersagen. 

Einfach, werden Sie denken! Ich lasse einfach sieben Zahlen ziehen und ändere 
Zeile 16 zu: ...FORN = 1 TO7. 


Machen Sie das doch mal! Die Änderung in Zeile 10 hat zwar noch Auswirkun- 
gen auf einige andere Programmzeilen. Aber das werden Sie selbst herausfinden! 
Lassen Sie das ein paarmal laufen. Fällt Ihnen etwas auf? Es sollte Ihnen auffallen, 
daß jetzt die Zusatzzahl - also die siebte gezogene Zahl — immer die größte Zahl 
ist! Und das stimmt überhaupt nicht mit der Prozedur des Lottozahlen-,Ziehens“ 
überein! Bei der sonnabendlichen Ziehung wird zwar die Zusatzzahl als letzte 
gezogen. Aber es kann jede der 49 - 6 verbleibenden Zahlen sein; Beispielsweise 
auch 1 oder 2! 

Ein neues Programm muß her! 

Wir gehen von dem letzten Programm aus — wenn Sie es schon gelöscht haben, 
müssen Sie leider noch einmal von vorn anfangen! 

Dieses Programm ergänzen wir um: 

18 FORN=1TO7 

75 Z= T(7) 

Mit dem Befehl in Zeile 75 suchen wir also die siebte gezogene Zahl T(7) aus den 
Zufallszahlen heraus und machen sie zu Z. Der Rest des Programmes bleibt wie 
gehabt; insbesondere sortieren wir jetzt nur noch die ersten sechs gezogenen 
Zahlen. Nämlich durch: 


90 FORN = 1 TO5 usw.! 


39 Der Computer zum Spielen 


Jetzt fügen Sie nur noch Ihrem letzten Programm an: 
215 PRINT”’DIE ZUSATZZAHL LAUTET: ”; Z 


Dieses hier gezeigte „Auf die Seite bringen“ (von T(7)) können Sie bestimmt noch, 
in anderen Programmen gebrauchen! 
Ich hoffe, Sie gewinnen nächste Woche im Lotto! 


39.6 Sind Sie ein Sonntagskind? 


Sie wissen das nicht? Kein Problem; mit dem folgenden Programm wird der 
Computer Ihnen darüber Gewißheit verschaffen. 


10 PRINT’PROGRAMM ZUR ERMITTLUNG DES WOCHEN-” 
15 PRINT”’TAGES ZU EINEM BESTIMMTEN DATUM.” 


96 J$(7) =”SONNABEND” 
100 PRINT”GEBEN SIE DAS DATUM AUF ANFORDERUNG EIN!” 
105 PRINT”Z. B. ALS 22 12 1969” 
116 INPUT”TAG”;T 
126 INPUT”"MONAT”;M 
136 INPUT”JAHR”;J 
156 K = INT(.6+(1/M)) 


166L=J-K 
1060=MH12*K 
180 P = L/166 


190 Z1 = INT(P/A) 
200 Z2 = INT(P) 

216 Z3 = INT((5*L)/A) 

226 Z4 = INT(13*(0+1)/5) 

236 Z = Z4+23-Z2+Z1+T-1 

246 Z = (Z-(7*INT(Z/7)))+1 

256 PRINT”DER GESUCHTE WOCHENTAG IST EIN ";J$(Z) 

260 PRINT” =======================-=-========= === 
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In den Zeilen 150 bis 246 wird Z für J$(Z) und damit für den gesuchten 
Wochentag berechnet. Wie das zustande kommt, weiß ich beim besten Willen 
nicht. Ich habe dieses Programm in dem schon erwähnten Programmbuch gefun- 
den und für Sie abgewandelt. 

Es funktionierte auf Anhieb vorzüglich. Es gilt mit einer Einschränkung: Das 
eingegebene Datum muß nach dem Jahre 1753 liegen. Weil damals der Julianische 
Kalender durch den Gregorianischen ersetzt wurde. 


Anhang 


Spezielle Tastenfunktionen 


In diesem Buch werden die Programmbeispiele für die beiden Computer CPC 464 
von Schneider und C-64 von Commodore entwickelt. Soweit dazu Tasten mit 
besonderer Beschriftung und Bedeutung benutzt werden, enthält diese Liste eine 
Übersicht über Tasten und Manipulationen, die Sie zum Vergleich heranziehen 
können. 

Haben Sie einen anderen Computer, dann können Sie in die Kästchen der 
rechten, freien Spalte die Tasten IHRES Computers einmalen. 
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Kenn- 
ziffer 


C-64 


WAS wollen Sie tun ? 


Einen direkten Befehl ausführen 
wie LIST oder PRINT 3*9 


Eine Programmzeile übergeben 
wie 1B PRINT "GUTEN TAG” 
Variablen Werten zuweisen 
wie 109 INPUTA 


Tasten beim 


[PC 464 


... und bei Ihrem 
Computer ? 


Den Bildschirm löschen 
— im Direkt - Modus 


ELR 


...PRINT CHR$(147) 


- in einem Programm 


us 


..CL5 


Programmlauf anhalten 
RUN 
STOP 


CONT 


- weiter mit : 


Druck auf be- 
liebige Taste 


Aus einer (Programm -) Zeile 
(ein) Zeichen entfernen 
10 PRINT "BASIC" MB 


INST 
DEL 


mit dem richtigen Inhalt: 10 PRINT " BASIC” 


e Sie können die Zeile korrigieren durch Überschreiben 


e Weitere Korrektur-/Editiermöglichkeiten finden Sie 


CAPS 
LOCK 


Normalzustand 


im Handbuch Ihres Computers. 

® Nur Großbuchstaben schreiben Normalzustand 

© Nur Kleinbuchstaben schreiben SHIFT 

© Addition 
(&)|@ Subtraktion -| 

@ Multiplikation >] 

@ Division 

@ Potenzieren 

@  6leicheitszeichen [=] 


"Größer als” 


"kleiner als” 


B 
Euale 
Erzale 


Anhang 


Aus dem Basic-Wortschatz 


In den nachfolgenden Tabellen möchte ich Ihnen am Beispiel unserer „Versuchs- 
kandidaten“ C-64 und CPC 464 die Vielseitigkeit des Basic-Wortschatzes vor- 
führen. 

Und zwar zeige ich Ihnen die sogenannten „Schlüsselworte“ der von beiden 
Computern verwendeten Basic-,Dialekte“. Verstehen Sie unter „Schlüsselwort“ 
Basic-Befehle, die der jeweilige Computer kennt und die er als Aufforderung 
interpretiert, bestimmte Dinge zu tun. 

Insbesondere für den CPC 464 — bei dem Variablennamen bekanntlich bis zu 40 
Zeichen umfassen dürfen — ist es wichtig, daß derartige Worte in Programmen 
nicht als Namen für Variable auftreten dürfen. 


100 LEN=25 


würde den CPC 464 mächtig ins Schleudern bringen. 


© Sie haben oben der Variablen LEN den Wert 25 zuweisen wollen... 
© „Er“ kennt LEN... als Schlüsselwort. (Für was, erfahren Sie gleich!) 


Damit stürzen Sie Ihren Gehilfen in einen Konflikt; er rächt sich dafür mit einer 
Fehlermeldung. 

Würden Sie sich nun auch noch von anderen Computern die „Liste der 
Schlüsselworte“ ansehen - sie stehen meist als Tabelle im Handbuch oder in der 
Bedienungsanleitung — dann könnten Sie folgende Feststellungen treffen: 


© Es gibt offenbar „DAS Basic“ gar nicht. Es gibt nur eine Menge von Basic- 
„Dialekten“. 

© Diese unterscheiden sich ganz offensichtlich quantitativ; d. h. in der Anzahl 
der zur Verfügung stehenden Worte. 
Das erlaubt einen gewissen Rückschluß auf die Leistungsfähigkeit und den 
Komfort des jeweiligen Dialektes. Je mehr Basic-Worte zur Verfügung stehen, 
um so komfortabler können Sie Ihre Programme gestalten. 
Hier steht bewußt: „komfortabler“! Denn mehr Basic-Worte in einer Sprachver- 
sion bedeutet nicht (zwangsläufig), daß damit der betreffende Computer „mehr 
kann“. 
Um bei unseren Testkandidaten zu bleiben: 
Mit dem mageren Basic des C-64 können Sie die gleichen Jobs fahren wie Ihr 
Freund mit seinem CPC 464. Ihre Programme werden bloß etwas länger und 
umständlicher. Darüber sage ich Ihnen noch etwas ganz am Schluß! 

© Die beiden Listen werden Ihnen aber auch zeigen, daß beide Dialekte Worte 
umfassen, die vollkommen gleich sind. 
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PRINT, INPUT, READ...DATA etwa zählen dazu. Wichtig ist, daß diese — und 
andere — Worte nicht nur gleich lauten, sondern auch das Gleiche bewirken. 
(Sonst wäre das Chaos komplett!) 

Sie erinnern sich, daß wir uns in diesem Buch auf derartige Worte beschränkt 
hatten. Ich kenne keinen Computer, der damit nicht zurande käme. 


Sie werden in den beiden folgenden Listen Worte in Fettdruck finden; diese 
haben wir hier gemeinsam behandelt. Im Anschluß an die Listen der Schlüssel- 
worte habe ich Ihnen diese Worte noch einmal zum Nachschlagen aufgelistet und 
eine kurze Erklärung ihrer Bedeutung angefügt. 

Dann finden Sie unter den Schlüsselworten welche, die sind unterstrichen. Ich 
rechne damit, daß Sie auch einmal in ein anderes Basicbuch schauen; mit einem 
Freund fachsimpeln oder sich mit fremden Programmen beschäftigen. Vermutlich 


werden Sie dann auf derartige Worte treffen. 


Und wenn wir sie schon aus guten Gründen hier nicht behandelt haben, sollten 
Sie wenigstens erfahren, was sie — die in der Liste unterstrichenen Worte — 


bedeuten und bewirken. 


Schlüsselworte des Commodore C 64 


A 

ABS AND ASC _ATN 
c 

CHR$ CLOSE CLR CMD 
D 

DATA DEF DIM 

E 

END EXP 

F 

FOR FRE 

G 

GET GOSUB GOTO 


CONT 


USR 


WAIT 


LEFT$ LIST LOAD 


NOT 


POKE PRINT 


RESTORE RETURN RIGHT$ RND 


SGN SIN SPC SQR 


THEN 


VERIFY 


RUN 


STEP STOP 


STR$ 


SYS 


Anhang 
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Anhang 
Schlüsselworte des Schneider CPC 464 


A 


ABS AFTER AND ASC ATN AUTO 


BIN$ BORDER 


CALL CAT CHAIN CHR$ CINT CLEAR CLG CLOSEIN 
CLOSOUT CLS CONT COS CREAL 


DATA DEF DEFINT DEFREAL DEFSTR DEG DELETE DI DIM 
DRAW DRAWR 


E 

EDIT EI ELSE END ENT ENV EOF ERASE ERL 
ERR ERROR EVERY EXP 

F 

FIX FN FOR FRE 

G 


GOSUB GOTO 


HEX$ HIMEM 


IF INK INKEY INKEY$ INP INPUT INSTR INT 
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LEFT$ 
LOWER$ 


NEXT 


PAPER 


Anhang 


LEN LET LINE 
MEMORY MERGE MID$ 
NEW NOT 

ON BREAK ON ERROR 
ORIGIN OUT 

PEEK PEN PI 
RANDOMIZE READ 
RETURN RIGHT$ RND 
SGN SIN SOUND 
STOP STR$ STRING$ 
TAG TAGOFF TAN 
TRON 

UPPER$ USING 

VPOS 

WEND WHILE WIDTH 


LIST 


MIN 


GOTO 


PLOT 


RELEASE 
ROUND 


SPACE$ 
SWAP 


TEST 


LOAD LOCATE LOG LOG16 


MOD MODE MOVE MOVER 


ON SQ OPENIN OPENOUT 


PLOTR POKE POS PRINT 


REM _REMAIN RENUM RESTORE 
RUN 


SPC SPEED SQ SQR 
SYMBOL 


TESTR THEN TIME TO 


WINDOW WRITE 
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Diese Basic-Worte kennen Sie schon... 


Im folgenden werden noch einmal alle in diesem Buch verwendeten Basic-Befehle ausgeführt. Neben 
einer kurzen Erklärung, in welchem Sinne die einzelnen Befehle verwendet wurden, folgt ein Hinweis 
auf diejenige Seite, von der ab der Befehl an Beispielen vorgeführt wird. 


Befehl 


AND 


CLS 


DIM 


END 


FOR...NEXT 


GOSUR... 
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Bedeutung in diesem Buch 


wird verwendet für logische Entscheidungen 

..IF A=1 AND B=1 THEN... 

Kurzform: IF[A=1)*(B=1)THEN... 

CLEAR SCREEN löscht den Bildschirm, ohne ein beste- 
hendes Programm zu beeinflussen. 


DIMensioniert bestimmte Speicherplätze für Variable. 
Beispiel: DIM SB(50) 

beendet an dieser Stelle die Abarbeitung eines Pro- 
gramms. 

wird verwendet für wiederkehrende Operationen. 
Beispiel: FOR X = 1 TO 1060 

„für X von 1 bis 1000“... 

FOR... muß mit ...NEXT abgeschlossen werden. 


Aufforderung, in ein Unterprogramm zu springen. Bei 
GOSUB 1000 muß das Unterprogramm in Zeile 1066 
beginnen. Nach Abarbeiten des Unterprogramms muß 
mit RETURN ins Hauptprogramm zurückgesprungen 
werden. 


erklärt 
ab Seite 


203 


28 


167 


61 


62 


129 


GO TO... 


IF... THEN 


INPUT 


LIST 
NEW 
ON...GO TO 


OR 


PRINT 


PRINT”...” 


PRINT TAB(... 


READ...DATA 


Aufforderung, an eine bestimmte Zeile zu springen. 
Bei 106 GO TO... kann das Ziel vor oder nach 106 liegen. 
Ist der auf IF... folgende Ausdruck wahr, folgt Ausfüh- 
rung des nach ...THEN Folgenden. 

Beispiel: IF X = 106 THEN 150 

Wenn X = 100 ist, wird das Programm in 150 fortgesetzt. 
Eingabebefehl, der Dialoge mit dem Computer erlaubt. 
Auf INPUT A$ wartet der Computer mit der weiteren 
Abarbeitung des Programms, bis für A$ ein String ein- 
gegeben wird. 

INTeger heißt „ganze Zahl“. Auf INT(6.5) gibt der Com- 
puter den Ganzzahl-Anteil — hier 6 — aus. 


Zuweisungsbefehl. Mit LET... wird einer numerischen 


oder Stringvariablen ein bestimmter Wert zugewiesen. 
Beispiel: LET D = 16 weist D den Wert 16 zu 

Bei den meisten Computern kann LET... weggelassen 
werden; die Kurzform lautet dann: D = 10 


Befehl zum AufLISTen des Programms. 
löscht ein im Speicher vorhandenes Programm. 


Variante des Befehls ...GO TO... 

..INPUTQ 

..ON Q GO TO 106,150,250 

Je nach Eingabe für Q wird das Programm in 100 oder 
156 oder 256 fortgesetzt. 

wird verwendet für logische Entscheidungen 

..IF A=1 OR B=1 THEN... 

Kurzform: IF(A=1)+(B=1)THEN... 


Ausführungsbefehl. In PRINT 3*5 versteht der Compu- 
ter PRINT als Rechenbefehl und gibt aus: 15 

Auf PRINT”3*5” versteht der Computer PRINT”...” als 
Druckbefehl und gibt aus: 3*5 

Eine Kurzform für PRINT ist? 

Also ?3*5 statt PRINT3*5 

Siehe oben! 

TAB ist ein Tabellierbefehl. Bei PRINT TAB(6) A 
„druckt“ der Computer A an die 6. Stelle der Zeile; er 
rückt A 5 Stellen nach rechts! 


Dieser Befehl bedeutet: „lese ‚(READ)‘ die in einer Da- 
tenliste ‚(DATA)‘ abgelegten Daten.“ 
Beispiel: ...READ A 

„PRINT A 

..DATA 1,2,3 


ist die Abkürzung für REMark. Mit REM kann man in ein 
Computerprogramm Kommentare schreiben, die das 
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76 


72 


107 


56 


51 
51 
79 


203 


30 


34 
251 


117 


90 
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RESTORE 


RETURN 


RND(...) 


RUN 


RUN 506 


.„STEP... 


SQR(...) 
TAB(...) 


VAL(...) 
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Programm verständlich machen. Alles, was in einer 
Zeile auf REM folgt, wird vom Computer bei der Ausfüh- 
rung des Programms ignoriert. 

veranlaßt den Computer, nach READ...DATA und Abar- 
beiten des folgenden Befehls in die DATA-Liste zurück- 
zukehren und die gleichen Daten noch einmal (für einen 
anderen Befehl) zu verwenden. 


bringt den Computer aus einem Unterprogramm (...GO- 
SUB...) zurück in das Hauptprogramm. 

RND ist Abkürzung für „Random“ — das heißt Zufall. 
Auf den Befehl RND(...) reagieren die einzelnen Compu- 
ter wie folgt: 

Beispiel: Es soll eine Zufallszahl zwischen 1 und 49 
gezogen werden. Es ist einzugeben: 

INT(49*RND(1)+1) 

RUN ist ein Ausführungsbefehl. Soll ein eingegebenes 
Programm gestartet werden, so ist RUN einzugeben, 
danach RETURN bzw. ENTER. 


Wie oben; hier wird das Programm jedoch erst ab Pro- 
grammzeile 500 abgearbeitet. 


Bestandteil der FOR...NEXT-Schleife. STEP gibt vor, in 
welcher Schrittweise die FOR...NEXT-Schleife arbeiten 
soll. 

Beispiel: ...FOR X = 1 TO 10 STEP .1 heißt: 

„für x von 1 bis 10 in der Schrittweite .1“ 


Zeichen für „Sqareroot“= Quadratwurzel 


Tabellierbefehl. Die Zahl in (...) gibt an, um wieviele 
Stelien nach rechts gerückt wird. TAB(5) rückt um 5 
Stellen nach rechts, das erste Zeichen erscheint dann 
auf der 6. Position. 

TAB(...) arbeitet nur zusammen mit PRINT. 


VAL ist die Abkürzung für VALue = „Wert“. Der nach 
VAL in (...) stehende Ausdruck muß ein String sein, der 
— für sich betrachtet - als Zahl einen Sinn ergibt. 
Beispiel: 

..X$="125" 

...PRINT VAL(X$) ergibt den Ausdruck: 125 
..X$="A125” ist VERBOTEN, weil A125 keine Zahl 
ist! 


125 


129 


132 


46 


64 


42 
251 
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Die Bedeutung einiger Zeichen in Basic 


. (Punkt) wird in BASIC anstelle von , (Komma) verwendet. 
Beispiel: 3.5 ist richtig: „drei-Komma-fünf“ 
3,5 ist falsch 
‚ (Komma) Tabellierzeichen. Mit , können meist vier Spalten (beim 
PC 100 zwei Spalten) geschrieben werden. 
Ein , trennt ferner Daten in DATA...-Zeilen. 
; (Strichpunkt) veranlaßt in einer Programmzeile mit PRINT die unmit- 


telbare Ausführung des nach ; Stehenden. 
Beispiel ...A=5 


..B=16 
..C=A*B 
.„PRINT”A*B=";C 
Ausdruck: A*B=50 
Ma Anführungszeichen. Strings müssen in ”...” gesetzt 
werden. 
+ a) Zeichen für „Plus“ (Addition) 
b) Kurzzeichen für logisches „Oder“ (OR) 
- Zeichen für, Minus“ (Subtraktion) 
* a) Zeichen für „Mal“ (Multiplikation) 
b) Kurzzeichen für logisches „Und“ (AND) 
/ Zeichen für „Geteilt durch“ (Division) 


Doppelpunkt. Trennt Basic-Befehle innerhalb einer Pro- 
grammzeile voneinander. 
Beispiel: ... FOR X = 1 TO 1060 : NEXT 


Zeichen zum Test auf Relationen 


= Gleichheitszeichen. 
„.A=5 
<> Zeichen für „ungleich“; „nicht gleich“. 
„„A<>B 
> Zeichen für „Größer als“. 
725 
< Zeichen für „kleiner als“. 
„.5<7 
>= bzw. => Zeichen für „kleiner oder gleich“. 
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Die Variablentypen 


A..Z 
A1...A9 Numerische Variable 
Beispiele: A=123; A9=12.3 
A$...2$ 
A1$...A9$ Stringvariable 
Beispiele: A$="EMIL”; A9$="E605” 
AM) 
S(2,4) 
AS) Indizierte Variable 


...und diese Basic-Worte möchte ich Ihnen 
wenigstens vorstellen! 


Und zwar in zwei Gruppen: 


® Mathematische Funktionen 
® Funktionen zur Zeichenkettenbehandlung. 


Los geht’s mit: 
Mathematische Funktionen 


Fürchten Sie sich nicht vor diesem streng klingenden Begriff! Sie kennen längst 
eine mathematische Funktion Ihres Computers, nämlich: SQR(X); „Ziehe die 
Quadratwurzel aus X!“. 

Jeder Computer beherrscht außer SQR(X) noch eine mehr oder weniger große 
Zahl von mathematischen Funktionen, die alle formal gleich aufgebaut sind: 


© Sie haben einen „Namen“, der sagt, WAS getan werden soll. 
SQR(... ist so ein Name, er sagt: „Ziehe die Quadratwurzel!“ 
® Daran schließt sich eine Aussage darüber an, MIT WEM etwas getan werden 
soll. 
SQR(X); aus X soll die Quadratwurzel gezogen werden! 
Diesen Teil der Funktion nennt man das (Funktions-) Argument. 
Behalten Sie im Hinterkopf, daß dieses ausnahmslos in Klammern zu setzen 
ist! 
© SQORX,SQR 16 ist falsch! 
SQR(X) , SQR(16) So soll’s sein! 


Und was wird noch geboten? 


268 


Anhang 


ABS(X) ABS(X) gibt den ABSolutwert des Argumentes X aus. 
Beispiel: 
10A = 3.5:B = -3.5 
20 PRINT ABS(A), ABS(B) 
Ergebnis: 3,5 3,5 
Siehe auch: FIX(X), INT(X) 
COS(X) Gibt den Kosinus des Argumentes X aus. 
X muß im Bogenmaß eingegeben werden. 
Liegt das Argument nur in Grad vor, verwenden Sie 
... COS(X%&.0174533) 
Beispiel: 
16X = 45 
20 A = COS(Xx.0174533) 
30 PRINT A 
Ergebnis: .7071067 
COS(X) zählt zu den sogenannten „Winkelfunktionen“, 
die man z. B. in der Geometrie bei der Berechnung von 
Seiten und Winkeln in Dreiecken einsetzt. 
Zu den in Basic eingesetzten Winkelfunktionen zählen 
noch SIN(X) und TAN(X) (siehe weiter unten!); über 
diese insgesamt drei Winkelfunktionen verfügt prak- 
tisch jeder Computer. 
EXP(X) Die EXP-Funktion erhebt den natürlichen Logarithmus e 
zur X-ten Potenz (e = 2.71828...) 
Beispiel: 
10 PRINT EXP(3) 
20 PRINT 2.71828 } 3 
Ergebnis: 
20.6855 
20.0855 
Siehe auch: LOG(X) 
FIX(X) Diese Funktion schneidet alle rechts vom Komma ste- 
henden Dezimalen ab. 
Für positive Argumente ist FIX(X) = INT(X) 
Für negative Argumente ist FIX(X) = INT(X)+1 
Beispiel: 
10 A =255:B= -25.5 
20 PRINT FIX(A), FIX(B) 
30 PRINT FIX(B), INT(B) 
40 PRINT FIX(B), INT(B)+1 


Ergebnis: 
Zeille26 25 -25 
306 -25 -26 


® 406 -25 -25 

Beachten Sie den Unterschied zwischen FIX(X) und 
INT)! 

Siehe auch: ABS(X) 
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LOG(X) 


SGN(X) 
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LOG(X) gibt den natürlichen Logarithmus (Basis = e = 
2.71828...) für das Argument X aus. 
Damit ist LOG(X) die Umkehrung von EXP(X). 
Beispiel: 
16 PRINT EXP(3) 
26 PRINT LOG(EXP(3)) 
Ergebnis: 
20.0855 
3 
Suchen Sie den Logarithmus für das Argument X zu 
einer beliebigen Basis n, benutzen Sie die Beziehung: 
log,(X) = log.(X)log.(n) 
Beispiel: 
Gesucht ist der Logarithmus zur Basis n = 10 für das 
Argument X = 2 
PRINT LOG(2)/LOG(16) 
Ergebnis: 
.30103 
In dem Ausdruck 2" = 8 hat die „Hochzahl“ (Exponent) 
den Wert 3 (2? = 8). 
Suchen Sie in einer Rechnung den Exponenten N, so ist 
(im Beispiel) 
N = LOG(8)/LOG(2) 
Beispiel: 
5 CLS 
16 INPUT ”A=";A 
26 INPUT "IN WELCHE POTENZ”;N 


38B=A1N 
40 C = LOG(B)/LOG(A) 
45 CLS 


50 PRINT ”A="; A, ”"B="; B 
55 PRINT "DER EXPONENT IST:”; C 
Geben Sie ein für A = 3.5 
für N = 2.5 
so erhalten Sie für B = 22.9177 
sowie in 55: 
DER EXPONENT IST: 2.5 
Siehe auch: EXP(X) 
SGN(X) „meldet“ das Vorzeichen des Argumentes X. 
@ Ist X positiv, wird 1 ausgegeben. 
@ Ist X Null, wird 0 ausgegeben. 
© Ist X negativ, wird —1 ausgegeben. 
Beispiel: 
16 FORX = -2 TO 2 
26 PRINT X, SGN(X) 
30 NEXT 
Ergebnis: 
2 -=1 
u | -1 


SIN(X) 


TAN(X) 


Anhang 


ö ö 
1 1 
2 1 


Gibt den Sinus des Argumentes aus. 

Das Argument muß im Bogenmaß eingegeben werden. 
Ist das Argument nur in Grad bekannt, so gilt: 
SIN(Xx.0174533) 

Beispiel: 

PRINT SIN(45%.0174533) 

Siehe auch: COS(X), TAN(X)! 

Gibt den Tangens des Argumentes X aus. 

Das Argument X muß im Bogenmaß eingegeben werden. 
Wenn X nur in Grad vorliegt, TAN(Xx.0174533) be- 
nutzen. 

Beispiel: 

PRINT TAN(10%.0174533) 

Ergebnis: 

.176327 

Siehe auch: COS(X), SIN(X)! 


Funktionen zur Zeichenkettenbehandlung 


„COMPUTER“ ist — wie Sie wissen — eine Zeichenkette oder ein „String“. 

Basic stellt nun eine Reihe von Funktionen zur Verfügung, mit denen Sie in 
Zeichenketten herumstochern können. Bevor Sie das tun, lesen Sie bitte noch 
einmal nach, was ich Ihnen im Abschnitt: „Der Computer als Sortiermaschine“ 
über den ASCI erzählt habe! 


ASC(X$) 


CHR$(X) 


Gibt den ASCII-Code in dezimaler Form für das erste 
Zeichen des String in (...) aus. 


Beispiele: 

PRINT ASC(”Z”) 16 Z$ = ”ZELT” 
26 PRINT ASC(Z$) 

Ergebnisse: 

96 96 

Bemerkungen: 


96 ist im ASCII-Code die Code-Nummer für Z. 

Gibt ein einzelnes ASCII-Zeichen aus für die in (...) 
stehende Code-Nr. oder Variable. 

Beispiel: 

160 A = 36 
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LEFT$(STRING,n) 


LEN(STRING) 


MID$(STRING,n,m) 


272 


26 PRINT CHR$(A) 
30 PRINT CHR$(90) 
Ergebnis: 
Ss 
Z 
Der ASCII-Code für S ist 36, für Z ist er 90 
CHR$(X) ist praktisch die „Umkehrung“ von ASC(X). 
Wenn Sie den Zeichensatz Ihres Computers kennenler- 
nen wollen, können Sie folgendes Programm ver- 
wenden: 

5 CLS:A=32:B=42 
16 FOR I=A TO B 
26 PRINT I, CHR$(T): NEXT I 
50 FOR I = 1 TO 2006 : NEXT 
60 A=A+10:B=B+16 
76 IF B> 255 THEN END 
80 GO TO 106 
Bemerkungen: 
Üblicherweise darf das Argument zwischen 6 und 127 
liegen. 
Computer mit Grafik-Möglichkeiten verwenden für die 
implementierten Zeichen Code-Nummern >127. 
Gibt die ersten n Zeichen des STRING aus. 
Beispiel: 
16 A$ = "BASIC” 
26 PRINT LEFT$(A$,1) 
36 PRINT LEFT$(A$,3) 
40 PRINT LEFT$("BASIC”,2) 
Ergebnisse: 
Zeile 26: Der String A$ ist "BASIC”,n = 1 

ausgegeben wird B 
Zeile 36: Der String A$ ist "BASIC”, n = 3 

ausgegeben wird BAS 
Zeile 46: Der String ist "BASIC”,n = 2 

ausgegeben wird BA 

Siehe auch: MID$(STRING,n,m), RIGHT$(STRING,n) 


Gibt die Länge des STRING (Anzahl der Zeichen) aus. 
Beispiel: 

10 A$ = "BASIC” 

20 PRINT LEN(A$) 

30 PRINT LEN("BASIC IST GUT”) 

Ergebnisse: 

Zeile 20: A$ ist 5 Zeichen lang; Ergebnis ist 5 

Zeile 36: Der String ist 13 Zeichen lang; Ergebnis ist 13. 
Ein „Blank“ wird auch als Zeichen gezählt! 

MID$ gibt einen m Zeichen langen Teil des STRING aus, 
beginnend bei dem n-ten Zeichen des STRING. 
Beispiel: 

16 A$ = "BASIC” 


Anhang 


RIGHTS$(STRING,n) 


STR$(...) 


20 PRINT MID$(A$,2,3) 
30 PRINT MID$(”"BASIC”,3,3) 
Ergebnisse: 
Zeile 26: A$ = ”BASIC” 
Der Computer gibt aus: ASI 
weil n = 2: Beginn mit A = 2 Zeichen 
weil m = 3: Länge des Teilstrings 3 Zeichen 
Zeile 36: Der STRING ist ”BASIC” 
Der Computer gibt aus: SIC 
n=3,m=3! 
Siehe auch: LEFT$(STRING,n), RIGHT$(STRING,n) 
Gibt die letzten n Zeichen des String aus. 
Beispiel: 
16 A$ = "BASIC” 
20 PRINT RIGHT$(A$,1) 
36 PRINT RIGHT$(A$,3) 
40 PRINT RIGHT$(”BASIC”,2) 
Ergebnisse: 
Zeile 26: Der String A$ ist "BASIC”,n = 1 
ausgegeben wird C 
Zeile 36: Der String A$ ist ”"BASIC”, n = 3 
ausgegeben wird SIC 
Zeile 46: Der String ist "BASIC”, n = 2 
ausgegeben wird IC 
Siehe auch: LEFT$(STRING,n), MID$(STRING,n,m) 
Mit dieser Funktion können numerische Variable in 
einen STRING verwandelt werden. Dabei kann der Aus- 
druck in (...) sowohl als Zahl als auch als numerische 
Variable eingegeben werden. 
Beispiel: 
16 A = 35 
20 A$ = STR$(A) 
Die so in einen String „verwandelte“ Zahl A läßt sich 
nun wie ein STRING bearbeiten. 
Beispiel: 
36 PRINT LEFT$(A$,2) 
40 PRINT VAL(A$) 
Ergebnis: 
Zeile 36: Ausgegeben wird 3 
Bei der Umwandlung von Zahlen wird eine Stelle für 
das Vorzeichen reserviert. 
Deshalb ist 3 das zweite Zeichen von A$ = +35! 
Zeile 46: Ausgegeben wird 35 
Siehe auch: VAL(...) 
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Zum Abschluß 


Schauen Sie noch einmal auf die beiden Listen der Schlüsselworte! 

Sie entdecken, daß es noch viele „weiße Flecken“ darauf gibt in Form von 
Worten, die wir überhaupt nicht erwähnt haben; das gilt ganz besonders für den 
Wortschatz des CPC 464. 

Ich hatte eingangs dieses Anhangs erklärt, daß der quantitative Unterschied im 
Wortschatz unserer Kandidaten nicht bedeutet, daß der C-64 „weniger kann“. 
Dafür ein Beispiel: 


© Der CPC 464 verfügt über einen sehr nützlichen Befehl: 
MAX...) 


Damit können Sie aus einer in (...) eingegebenen Liste von Zahlen die MAXi- 
male, die Größte heraussuchen nach folgendem Beispiel: 


10 PRINT "GEBEN SIE 4 ZAHLEN EIN !” 
20 INPUT A,B,C,D 
30 PRINT "DIE GROESSTE EINGEGEBENE ZAHL IST :";MAX(A,B,C,D) 


Nun beantworten Sie die Frage in Zeile 20 mit: 


Augenblicklich erscheint: 
DIE GROESSTE EINGEGEBENE ZAHL IST: 3 


© Für den C-64 ist MAX(...) ein böhmisches Dorf. Das heißt aber nicht, der C-64 
sei nicht in der Lage, aus vier (oder mehr) Zahlen die größte zu ermitteln! 
Sie müssen ihm nur durch ein kluges Programm erst das beibringen, was die 
Schöpfer des CPC-464-Basic ihrem Apparat mit MAX(...) beigebracht haben. 
Und zwar so: 


10 PRINT "GEBEN SIE 4 ZAHLEN EIN !” 
26 FORI=1TO4 

30 INPUT A(l) 

40 NEXT I 
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50M = Ali) 
66 FORI=1TO4 

76 IF AD) > MTHENM = Al) 

80 NEXT I 

906 PRINT "DIE GROESSTE DER EINGEGEBENEN ZAHLEN IST :”;M 
Testen Sie dieses Programm mit den gleichen Zahlen! 


Fazit: 


© Alle Computer sind gleich dumm. 
© Nur ihre Programmierer sind unterschiedlich intelligent (oder fleißig). 


Ich wünsche Ihnen weiterhin viel Spaß mit Basic! 
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Stichwortverzeichnis 


Beim Umgang mit Computern stoßen Sie oft auf spezielle Begriffe, deren Bedeutung in dem folgenden 
Verzeichnis näher erläutert wird. Soweit diese aus dem englischen Sprachraum stammen, sind sie 


sinngemäß übersetzt. 


Stichwort 


A 


Access 


Adresse 
AD-Converter 


Accumulator 


Algol 

ALU 
Anwender- 
programm 


Arbeitsprogramm 


Arbeitsspeicher 


ASCI 


Assembler 


Assembler 


asynchron 


Übersetzung 


Zugriff 


AD-Wandler 


Akkumulator 


Rechenwerk 


Erläuterung 


Möglichkeit, eine bestimmte Speicherstelle anzuspre- 
chen (zu adressieren) und zu lesen. 
Bezeichnungscode für eine Speicherstelle. 
Analog-Digital-Wandler: 

Schaltung, die analoge Werte in Digitalcode aus- 
drückt. 

Register mit der zusätzlichen Möglichkeit der binären 
Addition. 

Algorithmic Programming Language: höhere Program- 
miersprache für technisch-wissenschaftliche Pro- 
gramme. 

(Arithmetic und Logical Unit) Teil einer Computer- 
Zentraleinheit, in der arithmetische und logische Ope- 
rationen vorgenommen werden. 

Spezialprogramm, das ein Anwenderproblem behan- 
delt (im Gegensatz zu Universal- oder Betriebspro- 
grammen). 

Programm, das datenverarbeitende Probleme in engem 
Sinn ablöst (also kein Übersetzungs-, Hilfs- oder Be- 
triebsprogramm). 

relativ schneller Speicher für Programm und Zwischen- 
ergebnisse. Gegensatz: Massenspeicher. : 
alphanumerischer Code 

(American Standard Code for Information Inter- 
ciange). 

maschinennahe und maschinenspezifische Pro- 
grammsprache, niedriges Niveau. 

Gleichzeitig: 

Übersetzungsprogramm, das ein in Assembler ge- 
schriebenes Programm in Maschinencode übersetzt. 
ohne Takt, taktunabhängig 
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Basic 


BCD-Ziffer 
Befehl 
Befehlsvorrat 
Befehlszähler 
Betriebssystem 
binäre Variable 
Binärzähler 


Bit 
Boolsche Algebra 


Bus 


Byte 


CMOS 
COBOL 
Codieren 

(to) compute 


Computer 
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Instruction 


Program Counter 


Operating 
System 


Takt 


rechnen 


einfach zu erlernende höhere Computerprogrammier- 
Sprache (Beginners All purpose Symbolic Instruction 
Code). 

(Binary Coded Decimal) in 4 bit (Binärcode) codierte 
Ziffer. 

Anweisung an den Rechner zur Ausführung einer Ak- 
tion. 

Gesamtheit der Instruktionen, die ein Computer „ver- 
steht“. 

Register, in dem die Speicheradresse des nächsten zu 
bearbeitenden Befehls steht. 

Programmpaket, das die Bearbeitung von Programmen 
durch den Computer bequem möglich macht. 
Variable, die zwei Zustände annehmen kann (wahr 
-falsch bzw. JA-NEIN bzw. HIGH-LOW bzw. 1-8). 
Halbleiterbaustein, meist bestehend aus vier Zählfli- 
pflops, der dann von Öbis 15 zählt. 

(Binary Digit) binäre Informationseinheit 

System von Rechenregeln für binäre Variable (,„Logi- 
sche Operationen“). 

Datenleitung, an der mehrere Einheiten gleichzeitig 
angeschlossen sind (Adreßbus, Datenbus, Kon- 
trollbus). 

Kleinste adressierbare Einheit in Großanlagen (8 bit + 
1 Parity-bit). 


bezeichnet ein nacktes, fertig diffundiertes Silizium- 
plättchen oder aber auch einen Schaltkreis. 

praktisch alle existierenden Computer sind „Syn- 
chron-Maschinen“, d. h. ihre Operationen erfolgen in 
einem festgelegten, von einem Taktgenerator bestimm- 
ten Zeitraster. 

Complementary MOS: MOS-Technologie mit vernach- 
lässigbarem Ruhestrom, mittelschnell. 

höhere Programmsprache für kommerzielle DV (Com- 
mon Business Oriented Language). 

speziell in der Programmiertechnik: Umsetzen eines 
Programmablaufs in die Programmsprache. 

dieses englische Wort ist die Wurzel des Namens 
COMPUTER. 


beliebig programmierbare Logikeinheit. 


Daten 


Datenbus 


Datenflußplan 


Datenspeicher 


DA-Wandler 
Debugging 


Decoder 


Digitaltechnik 


dynamischer 


Speicherbaustein 


E 


„Enable“-Signal 


Encoder 


Entwicklungs- 


system 


EPROM 


Zentraleinheit 


Zeiger 


Data 


DA-Converter 


„Ent-Wanzen“ 


Dekodierer 


Kodierer 
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Central Processing Unit: Rechenwerk und Steuerwerk 
eines Computers. 


gibt auf dem Bildschirm des (Daten-)Sichtgerätes an, 
wo das nächste eingegebene Zeichen erscheint. 


allgemein: in irgendeiner Form dargestellte Sachver- 
halte oder Vorgänge. Speziell versteht man darunter 
meist Ein- und Ausgabeinformation eines Computer- 
systems. Es gibt numerische (Ziffern, Zahlen) und 
alphanumerische (Ziffern, Buchstaben, Sonderzei- 
chen). 

gemeinsame Datenschiene (-leitung) für mehrere 
gleichzeitig angeschlossene Einheiten. 

Hilfsmittel beim DV-Systemaufbau. Aus dem Daten- 
flußplan gehen Ein-, Ausgabe und prinzipielle Verar- 
beitungsvorgänge hervor. 

Speicher, in dem ausschließlich Daten gespeichert 
sind (beim Mikrocomputer meist RAM, gelegentlich 
ROM). 

Digital-Analog-Wandler: Schaltung, die aus digitalem 
Code Analogsignale erzeugt. 


Fehlersuche und Beseitigung von Fehlern, insbeson- 
dere in Computer-Programmen. 


Einrichtung/Schaltung/Baustein zur Umwandlung ei- 
ner codierten in eine andere (von Ihnen lesbare) Infor- 
mation. 

dort sind für alle Signale nur zwei Pegel definiert (Low 
und High). 

Speicherelement, bei dem die in Form von Ladung 
gespeicherte Information zyklisch „aufgefrischt“ wer- 
den muß. 


„Freigabe“-Signal 

Einrichtung/Schaltung/Baustein zum Umwandeln von 
Informationen. 

Computersystem (Hard- und Software), das zur Ent- 
wicklung von Anwendersystemen dient (Programmie- 
rung, Übersetzung, Debugging, Simulation). 
(Erasable-Programmable ROM): Festspeicher, dessen 
gesamte Information mit UV-Licht löschbar ist. Der 
Speicherbaustein läßt sich dann wieder neu program- 
mieren. 
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Europakarte Leiterplatte in genormtem Format, 10 cm x 16 cm. 


Execution Time Ausführungszeit Zeit, die zur vollständigen Ausführung eines Befehls 
benötigt wird. 


F 


Flipflop bistabiles Speicherelement zur Speicherung von 1 bit. 

Floppy Disk relativ schnelles, externes Speichermedium mit wahl- 
freiem Zugriff, das sich besonders für den Einsatz in 
der Mikrocomputer-Technik eignet. Als Datenträger 
dient eine „Scheibe“ aus magnetischem Werkstoff 
(wie Tonband). 


flüchtig volatile Eigenschaft eines Speicherinhalts, bei Ausfall der Ver- 
sorgungsspannung verlorenzugehen. 

Fortran höhere Programmiersprache für technisch-wissen- 
schaftliche Programme (Formula Translating 
Language). 


G 


Gatter Gate Schaltung, die mindestens zwei digitale Signale (binä- 
re Variablen) miteinander verknüpft. 


H 


Hardware Sammelbegriff für Bauteile und Geräte. 

Hardwired Logic Festverdrahtete Digitalschaltung, aus Standardbausteinen aufgebaut. 
„Logik“ 

HIGH Logikpegel (entspricht bei positiver Logik der „logi- 


schen“ Eins). 


IC IS Integrated Circuit, Halbleiterschaltung in einem Ge- 
häuse. 
Indizierte Variable eine Variable A mit dem Index N: A (N). 
integer heißt zu deutsch: „Ganze Zahl“. 
Interface Anpassungs- elektronische Schaltung, die zwei Geräte oder Bau- 
schaltung steine einander anpaßt. 
Interrupt Programm- momentan in Arbeit befindliches Programm wird un- 
unterbrechung terbrochen und eine Interrupt-Service-Routine bear- 
beitet. Danach wird das unterbrochene Programm wei- 
terverarbeitet. 
VO-Chip Eingabe-Aus- integrierte Schaltung, die den Datenfluß vom und zum 
gabe-Baustein Mikroprozessor abwickelt. 
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K 


Kernspeicher 
Klarschriftleser 
kompatibel 


kundenspezifischer 
Schaltkreis 


L 


LED 


Lochkartenleser 


Lochkartenstanzer 
Logic 


Low-Power-Schottky- 
TTL 


LSI 


Magnetband- 
kassette 
Machine 
language, 
Object code 


verträglich 


Leuchtdiode 


Logik 


Maschinencode, 
Maschinen- 
sprache 


Maskenprogrammierung 


Massenspeicher 
Mikrocomputer 


Minicomputer 


Mnemonic Code 


Microcomputer 


Mnemonischer Code 
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Speicher aus Magnetkernen aufgebaut. Sehr teuer. Nur 
für sehr große Anlagen. 

Eingabegerät, das Schrift in maschinenlesbaren Code 
umwandelt. 

zwei Geräte sind kompatibel, wenn sie ohne Zusatz 
miteinander arbeiten können. 

Exklusivanfertigung einer integrierten Schaltung für 
einen Kunden. Nur bei großen Stückzahlen möglich. 


(Light Emitting Diode) farbiges Licht ausstrahlender 
Halbleiter (Ersatz für Lämpchen). 

periphere Eingabeeinheit eines Computers zum Einle- 
sen von (meist 80spaltigen) Lochkarten, relativ 
langsam. 

periphere Einheit eines Computers, Ausgabe von In- 
formation in Form von Lochkarten (langsam). 
Kurzbezeichnung für „logische“, d.h. digitale Schal- 
tungen. 

Weiterentwicklung der TTL-Serie mit höherer Arbeits- 
geschwindigkeit. 

(Large Scale Integration) hoher Integrationsgrad (z.B. 
CPU, 4-K-RAM-Bausteine). 


billiges externes Speichermedium mit seriellem Zu- 
griff. 

von der Maschine direkt interpretierbare Anwei- 
sungen. 


Methode, den Speicherinhalt eines ROM schon beim 
Hersteller durch eine kundenspezifisch angefertigte 
Maske festzulegen. 

Speicher für große Datenmengen (im Gegensatz zum 
Arbeitsspeicher). 

Computer, dessen Zentraleinheit ein Mikroprozessor 
ist. 

Computer mit meist 16 bit Wortlänge, zur Bearbeitung 
weniger bis mittelmäßig komplexer Probleme ge- 
eignet. 

leicht zu merkende, alphanumerische Kürzel für Be- 
fehle (im Gegensatz zum Dualcode oder Zahlencode, 
der schwerer zu behalten ist). 
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MNOS 


MOS 


n-Kanal-MOS 


oO 


Off-Line 


On-Line 


pP 


Peripherie(geräte) 
periphere Speicher 


PIA 


Pin-kompatibel 


P-Kanal-MOS 
PLA 


PL/1 
PL/M 


Programm 


Programm- 
ablaufplan 
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Program 


Program 
Flowchart 


Metal Nitride Oxide Semiconductor: im Entwick- 
lungsstadium befindliche MOS-Technologie, die La- 
dungsspeicherung über sehr lange Zeit ermöglicht. 
Interessant für nichtflüchtige RAMs. 


Metal Oxide Semiconductor: Halbleitertechnologie, 
die sehr hohe Schaltungs-Eingangswiderstände er- 
möglicht. 

Mikro Processor Unit: Mikroprozessor. 


Medium Scale Integration: mittlerer Integrationsfaktor 
(z. B. 4-bit-Zähler-Baustein). 


MOS-Technologie, die mittelhohe Schaltgeschwindig- 
keiten zuläßt. 


Form des Verkehrs mit einem Computer, bei dem der 
Benutzer nicht hardwaremäßig mit diesem verbunden 
ist, sondern der Verkehr über Datenträger abgewickelt 
wird. 

Form des Verkehrs mit einem Computer, bei dem das 
Terminal des Benutzers über eine Datenleitung direkt 
mit dem Computer verbunden ist (künftig auch: Tele- 
fonleitung). 


externe Geräte 

Geräte zur Datenspeicherung, die an einen Computer 
angeschlossen werden. 

Peripheral Interface Adapter: Mikrocomputer-Bau- 
stein, der den Ein-Ausgabeverkehr zwischen CPU und 
Peripherie abwickelt. 

von der Anschlußbelegung (Pin-Belegung) her identi- 
sche Bauteile. 

historisch erste MOS-Technologie, relativ langsam. 
Programmable Logic Array: IS, bestehend aus zwei 
ROMsSs, z. B. zur Codewandlung. 

Programming Language 1: 

höhere Universal-Programmiersprache. 

Programming Language for Microcomputer: höhere 
Programmiersprache für Mikrocomputer, basierend 
auf PL/1. 

Folge von Befehlen. 

Hilfsmittel beim Computer-Systemaufbau. Aus dem 
Programmablaufplan geht die Struktur der Verarbei- 
tungsvorgänge hervor. 


Stichwortverzeichnis 


Programmier- 
sprachen 


Programmspeicher 
PROM 


Puffer(-Speicher) 


R 


RAM 
Random 


Random Access 


Real-Time 


Rechenwerk 
Refresh 


Register 
ROM 


S 


Schnittstelle 
Schreib-Lese- 
Speicher 


Second Source 


Software 
Speicher 


Speicherorganisation 


sSI 


Programming 
Languages 


Program storage 


Buffer 


Zufall 


wahlfreier 
Zugriff 


Echtzeit 


ALU 


auffrischen 


Interface 
Read/Write- 


Memory 
Zweitlieferant 


Storage 


künstliche Sprachen mit einem begrenzten Vorrat an 
Befehlen, die automatisch in maschinenverständliche 
Form übersetzbar sind. 

Speicher, in dem ausschließlich Programme gespei- 
chert sind (beim Mikrocomputer meist ROM). 
Programmable ROM: Programmierbarer Festspei- 
cherbaustein. 

Speicher, in dem Daten vorübergehend zwischenge- 
speichert werden. 


Random Access Memory: Schreib-Lese-Speicher mit 
wahlfreiem Zugriff. 

Aus einem Kollektiv von Begriffen (Zahlen, Strings) 
wird einer zufällig ausgewählt. 

jede Speicherstelle kann direkt angesprochen werden, 
also ohne daß andere Speicherstellen zuerst gelesen 
werden müssen. 

Arbeitsweise eines Computers: Im Echtzeitbetrieb ist 
er direkt in einen Prozeß einbezogen, auf den er Ein- 
fluß nimmt bzw. von dem er beeinflußt wird. 

Teil einer CPU, in dem arithmetische und logische 
Operationen ausgeführt werden. 

zyklischer Adressiervorgang bei dynamischen Halb- 
leiterspeichern zum Ausgleich von Ladungsverlusten 
durch Leckströme. 

kleine, schnelle Zwischenspeicher (meist in der CPU). 
Read Only Memory: Festspeicher mit wahlfreiem Zu- 
griff. 


pegel- und ablaufmäßig genormter Anschluß zwischen 
zwei Geräten. 


Speicher, dessen Informationsinhalt unter Rechner- 
kontrolle verändert werden kann. 


Hersteller, der ein pin-kompatibles Bauelement aus 
unabhängiger Fertigung liefert. 


Sammelbegriff für alle Arten von Programmen. 


Medium, das Informationen über einen beliebig lan- 
gen Zeitraum festhalten kann. 


Anordnung der Speicherzellen (wie viele Bits stehen 
pro Adresse parallel zur Verfügung). 


Small Scale Integration: niedriger Integrationsgrad, 
z. B. Gatterbausteine. 
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Stichwortverzeichnis 


Stack 


Stack-Pointer 
Statischer 
Speicherbaustein 
SN ERROR 
Speicher 
Steuerwerk 
String-Variable 


Subroutine 


System-Analyse 


T 


Takt 


Taktgenerator 


Terminal 
Time Sharing 


Tri-State-Gatter 


TTL 


U 


Unterprogramm 
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Stapelspeicher 


Stapelzeiger 


Syntax Error 


Control Unit 


Unterprogramm 


System Analysis 


Clock 


Datenendgerät 


Zeitscheiben- 
verfahren 


Subroutine 


vom Programmierer definierter Speicherbereich au- 
Berhalb des Steuerwerks, der mit Spezialbefehlen an- 
zusprechen ist. 

Register, in dem eine Stack-Adresse gespeichert ist. 
Bauelement, dessen Informationen nach dem Ein- 
schreiben auch ohne zusätzliche Maßnahmen erhalten 
bleiben (außer bei Stromausfall). 

Fehlermeldung des Computers: Verstoß gegen die Re- 
geln bei der Eingabe. 

Medium, in dem Information über längere Zeit verfüg- 
bar gehalten wird. 

Teil einer Computerzentraleinheit, der die Ausfüh- 
rung sämtlicher Befehle kontrolliert. 


eine Variable, deren „Wert“ eine Zeichenkette ist. 
Programmabschnitt, der im Verlauf eines Hauptpro- 
gramms mehrfach durchlaufen wird, aber nur einmal 
gespeichert ist. 

Phase in der Projektplanung und Bearbeitung, in der 
die Struktur des Problems analysiert wird. 


praktisch alle existierenden Computer sind „Syn- 
chron-Maschinen“, d. h. ihre Operationen erfolgen in 
einem festgelegten, von einem Taktgenerator bestimm- 
ten Zeitraster. 

Schaltung/Baustein zur Erzeugung des computerinter- 
nen (Arbeits-)Taktes. 

Gerät zur Dateinein- und/oder Datenausgabe. 
Verfahren, bei dem mehrere Benutzer On-Line auf eine 
Großanlage zugreifen können, wobei jeder Benutzer 
den Eindruck hat, daß ihm allein die Anlage zur Verfü- 
gung steht. 

Digitalschaltung, geeignet zum Anschluß an Busse. 
Nur aktivierte Elemente bestimmen die Bus-Informa- 
tion. Schneller als Open-Collector-Gatter (Gegentakt). 
(Transistor Transistor Logic) mittelschnelle digitale 
Standardbausteinserie mit 5 V Versorgungsspannung. 
Fernschreiber (Teletype), meist mit angeschlossenem 
Lochstreifenleser/-stanzer. 


Programmabschnitt, der im Verlauf eines Hauptpro- 
gramms mehrfach durchlaufen wird, aber nur einmal 
gespeichert ist. 


volatile flüchtig 


W 


wahlfreier Zugriff Random Access 


Wortlänge 

Zentraleinheit CPU 
Zufallsgenerator 

Zugriff 


Zuweisung 


Stichwortverzeichnis 


eine Variable kann in einem Computerprogramm ei- 
nen vom Programmierer definierten Wert erhalten. 
(Very Large Scale Integration) in den 80er Jahren zu 
erwartender, sehr hoher Integrationsfaktor (z. B. voll- 
ständiger Microcomputer auf 1 Chip). 

Eigenschaft eines Speicherinhalts, bei Ausfall der Ver- 
sorgungsspannung verlorenzugehen. 


jede Speicheradresse kann direkt, also ohne daß ande- 
re Speicherstellen zuerst gelesen werden müssen, an- 
gesprochen werden. 

Anzahl der Bits, die zusammenhängend verarbeitet 
werden können. Bei Home-Computern 8 Bit. 


Central Processing Unit: Rechenwerk + Steuerwerk 
eines Computers. 

Einrichtung/Programmvariante, die (meist Zahlen) zu- 
fällig ausgibt. 

Möglichkeit, eine bestimmte Speicherstelle anzuspre- 
chen (zu adressieren) und zu lesen. 


beim Programmieren mit Variablen wird diesen ein 
bestimmter „Wert“ zugewiesen. 


285 


Sachverzeichnis 


A 


Abfrage 180 
ALGOL 20 
Amortisation 153 
Anfangskapital 209 
Arbeitsspeicher 22 
Array 199 

ASCI 224 
Ausgabegerät 12 


B 


BASIC 20 
BCD-Darstellung 16 
Bit 16 

Blank 41, 52 

Byte 17 


C 


COBOL 20 
Code 13, 224 
CPU 9 
Cursor 27 


D 


Daten 9, 117 

- -satz 184 
Decoder 17 
Dezimal|system 14 
— -zahl 111 

Dialog 72 
Digitaluhr 114 
Drucker 163 
Dualsystem 14 


E 


Eingabegerät 11 
Encoder 17 
Endkapital 209 
Ersatzwiderstand 86 


F 


Falscheingabe 80 
Filter 101 
Floppy-Disk 82 
Flußdiagramm 248 
FORTRAN 20 


G 
Gerade Zahl 135 


Gleichheit 99 
Grundrechenarten 32 


I 


Indizierte Variable 194, 199 
Interface 82, 205 
Investition 150 


J 
Jahresrate 214 


K 


Kapital 151 

Kegel 94 

Klammer 45 
Klemmenspannung 88 
Kredit 214 


L 


Lager 167 

Laufzeit 209 

Leistung 88 

Logische Operationen 207 


M 


Marktanteil 146, 149 
Mehrwertsteuer 138 
Menü 181 

Mikro |computer 9 
— -prozessor 9 


P 


Potenz 15 
Potenzieren 43 
Prisma 94 
Prognose 145 
Programm 12, 46 
Pyramide 94 


R 


RAM 2 
Restschuld 214 
Runden 107, 111 


S 


Satzzeichen 40 
Schalter 118 
Schleife 101, 148 


Schlüsselwort 23, 260 
Sortieren 222 

Spalte 71 
Spannungsabfall 86 
Sperre 80 
Spielregeln 242 
Steuerungstechnik 203 
String 58, 60, 123 
Strom 86 

Suchen 185 
Suchprogramm 185 
Symbol 13 

Szenario 146 


T 


Tabellenbuch 85, 91 
Tabulator 251 
Taktgenerator 19 
Tastatur 24, 34 
Telefonverzeichnis 178 


U 


Unbekannte 56 
Ungerade Zahl 135 
Unterprogramm 129, 244 


v 


Value 198 
Variable 168 
Variablennamen 57 
Variante 167 
Vorbelegung 180 


W 


Wahrheitstabelle 206 
Widerstand 86 
Würfel 94 


zZ 


Zähler 114, 147 
Zeilen|inhalt 49 

—- -nummer 47, 67 
Zentraleinheit 12 
Zinsen 108 

Zins|fuß 151 

— -satz 209 

- -tafel 212 

Zufall 132 

Zufalls | generator 232 
- -zahl 132 
Zuweisung 56, 103, 156 


287 


Plötzlich auftretende Fragen finden 
in diesem Band eine gründliche Antwort 


Dipl.-Ing. (FH) Herwig Feichtinger 


Arbeitsbuch 
Mikrocomputer 


Funktion und Anwendung von Mikrocomputern, Peripherie und Software. 602 
Seiten mit 350 Abbildungen. Lwstr-gebunden mit Schutzumschlag DM 108.-. 
ISBN 3-7723-8021-2 


Im Arbeitsbuch Mikrocomputer konzentriert sich die Theorie und die Praxis 
der letzten Jahre wie in einem Brennglas zu einem Punkt und gibt den 
Ausblick auf die Zukunft. 


Das Arbeitsbuch Mikrocomputer faßt die weitverstreute Basis-Literatur 
zusammen, filtert das unumstößlich Wichtige heraus und bereitet es so auf, 
daß der Benutzer des Werkes optimal informiert wird. 


Das Arbeitsbuch Mikrocomputer ist in erster Linie ein Nachschlagewerk. Es 
beantwortet die Fragen der täglichen Praxis. Z. B. Befehlssätze von Mikropro- 
zessoren und Betriebssystemen, Anschlußbelegungen von Bauelementen, 
Normen von Schnittstellen, Bedienung von Assemblern und Compilern. Die 
höheren Programmiersprachen gehören auch dazu. 


Das Arbeitsbuch Mikrocomputer ist auch ein Lehrbuch. Neben den reinen 
Fakten, Zahlen und Tabellen sind reichlich Erklärungen und Hinweise zum 
Wieso und Warum angesiedelt. Das reicht von einfacher digitaler Logik über 
den internen Aufbau von Mikroprozessoren bis hin zu den Betriebssystemen 
MS-DOS und Unix. 


Das Arbeitsbuch Mikrocomputer ist dazu noch eine moderne Datenbank auf 
dem handsamsten Medium, dem Papier. Über das umfangreiche Inhaltsver- 
zeichnis oder das aufgeschlüsselte Stichwortregister stößt der Benutzer ganz 
schnell auf die Stelle, die ihm die Information serviert, die er braucht und die 
ihm weiterhilft. 


Das Arbeitsbuch Mikrocomputer bietet also eine Arbeitserleichterung und 
eine Literaturersparnis, die gar nicht hoch genug angesetzt werden kann. 


Franzis-Verlag, München 


Rudolf Busch 


Busch 
Basic für Einsteiger 


Nie wird der zweite Schritt vor dem ersten gemacht. 
Das ist der unbändige Vorzug dieser Programmier- 

fibel. Ein weiterer kommt hinzu und potenziert ihre 

Brauchbarkeit. 


Die meisten Kapitel sind »zweiseitig« aufgebaut, 
Das heißt, auf der linken Seite steht, was dem 
Computer eingegeben wird und wie er darauf 
reagiert. Auf der rechten Seite werden die 
verwendeten Befehle mit Kommentaren erläutert. 


Auf diese simple Art und Weise wird die 
Programmiersprache Basic gelernt und ihre 
Sprachelemente erläutert, Der junge Programmierer 
wird dahin geführt, selbständig seine Problem- 
stellungen zu analysieren. Zum lauffähigen Basic- 
Programm ist es dann nur noch ein Sprung. 


Wie heißt doch der Titel dieses Buches? 
Basic für Einsteiger. 


So, nun liegt die dritte Auflage vor. Was bringt sie 
Neues? 

Da ist zunächst zu berichten, daß der Inhalt 
deutlich auf die beiden Computer-Marktrenner C-64 
und CPC-464 ausgerichtet worden ist. 


Dann ist ein Abschnitt aufgenommen worden, 
der die Zusammenarbeit des Computers mit dem 
Drucker regelt. Der Einsteiger hat damit immer 
wieder seine Probleme. 


Auch der verwendete Basic-Wortschatz ist 
durchgeforstet worden. Jetzt werden in diesem 
Buch nur noch solche Worte benutzt, die von 
jedem Home- oder Personalcomputer verstanden 
werden. 


Im Anhang befindet sich ein Glossar 

der Basic-Worte, die in anderer Fachliteratur und 
in Programmen umherschwirren. Auf sie könnte 
der Einsteiger möglicherweise stoßen, wenn er den 
Inhalt dieses Buches aufgearbeitet hat und ein 
Basic-Aufsteiger werden will. 


Die neue Auflage bietet schon allerhand Neues. 


N TNDDETIE) ALLIED TIERE DEZDDENT BEAT) 


49hla}sulg ın) Siseg yosng 


